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6-1  Input  quantities  to  Program  DRVATM 


SECTION  1 


INTRODUCTION 


In  this  volume  we  describe  the  ROSCOE-IR  model  for  the  major 
and  minor  neutral  species  in  the  ambient  atmosphere  and  the  ionized 
species  in  the  ambient  ionosphere  [ROSCOE  Model  1] .  The  overall  model 
consists  of  16  subroutines  of  which  three  are  major  subroutines: 

a.  ATMOSU  provides  the  major  neutral  species  and  the 
the  general  properties  of  the  ambient  atmosphere, 

b.  SPCMIN,  supplemented  by  Subroutines  OZONE,  WATER, 

WVOPT,  and  H20SVP,  provides  the  minor  neutral 
species,  and 

d.  IONOSU  provides  the  ambient  ionized  species  and  the 
general  properties  of  the  ionosphere. 

The  principal  changes  for  these  three  routines  in  going  from 
ROSCOE-Radar  to  ROSCOE-IR  are  summarized  below. 

The  new  Subroutine  ATMOSU  provides  for: 

a.  Replacement  of  the  predetermined  fit  coefficients 
for  the  g/Tj^  profile  by  those  derived  during  the 
initialization  phase  from  specifying  a  temperature 
profile  and  a  molecular  weight  profile. 

b.  Use  of  a  0-  to  120-km  temperature  profile  for  any 
latitude  and  season,  obtained  in  Subroutine  TEMPZH 
by  linear  interpolation  of  a  set  of  latitude  and 
season  profiles  based  on  the  U.S.  Standard 
Atmosphere  Supplements,  1966  [ US- 66 3 . 

c.  Use  of  a  specified  universal  profile  of  the 
molecular-weight  function  [(M*/M)-l]=f  =  f^y, 
independent  of  latitude,  season,  and  diurnal 
variation.  (The  new  f-function  is  specified  by 
the  DD-coef f icient  array  for  an  llth-degree 
polynomial.)  However,  the  nightime  atomic  oxygen 
profile  differs  from  the  daytime  profile  below  90 
km  and  is  computed  from  a  separate  fit  function. 

The  daytime  atomic  oxygen  profile  is  computed  from 
specification  of  temperature  and  molecular-weight 
profiles  instead  of  being  specified  directly  and 
entered  as  data  in  Subroutine  SPCMIN. 
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d. 


An  option  for  the  user  to  specify  a  temperature 
profile  of  interest  to  him  (at  altitudes 
z  =  0(4)120  km)  instead  of  using  the  one  selected 
by  the  code  as  a  function  of  latitude  and  season. 

e.  Elimination  of  a  pressure-correction  factor 
employed  in  the  original  model  to  match  the 
CIRA-1965  [CI-65]  conditions  at  120-km  altitude. 

f.  Season-dependent  conditions  at  120-km  altitude  (the 
base  altitude  for  the  high-altitude  diffusion 
model)  instead  of  constant  conditions. 

g.  An  increase  of  the  SNI  array  to  30  from  6. 

The  new  Subroutine  SPCMIN  provides  for: 

a.  New  altitude  profiles  of  CO,  N90,  CHa,  H,  OH,  H09 , 

N(2d),  N(2p),  and  0(1D) . 

b.  Revised  altitude  profiles  of  O3 ,  H20,  N,  N(^S),  and  NO. 

The  new  Subroutine  IONOSU  provides  for: 

a.  Replacement  of  the  E-  and  F-region  generic  molecular 
ion  M+  by  N0+,  N^,  and  O^. 

b.  A  corresponding  change  in  IONOUP  Common. 

For  simplicity  of  presentation,  we  have  adopted  a  flexible 
definition  of  which  species  are  major  and  which  are  minor.  It  is  hoped 
that  the  meaning  will  always  be  clear  to  the  reader  in  the  context  of 
the  usage. 


The  overall  inputs,  some  intermediate  outputs,  and  final  out¬ 
puts  for  Model  1  are  given  in  Table  1-1. 

A  flow  diagram  of  the  16  subroutines,  with  their  driver 
routine  for  development  and  test  problems,  is  given  in  Figure  1-1.  A 
brief,  simplified  description  of  the  working  of  the  16  subroutines 
follows . 


The  Subroutine  ATMOSU  is  initialized  on  a  call  to  ATM0SU(1, 
120.)  to  set  up  needed  parameters  and  to  evaluate  the  solar-flux- 
dependent  Fourier  coefficients  used  in  computing  the  time -dependent 
values  of  x  (the  variable  controlling  the  temperature  gradient  at  the 
lower  boundary  (120  km)  of  the  high-altitude  model)  and  T^  (the 
exospheric  temperature).  In  this  call  the  values  of  the  time  (HL, 
hours),  the  10.7-cm  solar  flux  (SBAR-)  ,  and  the  dav-or-night  parameter 
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Table  1-1.  Inputs,  intermediate  outputs,  and  final  outputs 

for  major  and  minor  neutral  species  and  ionosphere 
for  ambient  conditions  (ROSCOE  Model  1) . 


INPUT 

Initialization 

Location  (geographic  colatitude  and  longitude) 

Time  (year,  month,  day,  local  zone  time) 

Kinetic  temperature  profile  (£120  km)  for  latitude  and  season 

Moisture  profile  (mixing  ratio,  humidity,  or  dew-point 
temperature 

Operation 

Altitude 


SOME  INTERMEDIATE  OUTPUTS 

Time:  Universal  time,  Julian  day  number,  local 

(apparent)  time,  index  for  day  or  night 

Solar  Properties:  Solar  zenith  angle,  solar  flux  at  10.7  cm 

Minor  Species:  Fit  parameters  for  density  profiles 

FINAL  OUTPUTS 
Neutral  Species 

N2,  02,  0,  Ar,  He,  C02 ,  N(4S) ,  N(2D) ,  N(2P) ,  NO,  N02 ,  N20,  03 

o2(1Ag).  0(h),  co,  ch4,  h2o,  oh,  ho2,  H 

Ionized  Species  (_>  90  km) 
e,  0+,  N0+.  02,  N2 
Atmospheric  Properties 

Pressure,  density,  density  scale  height,  (gas)  temperature, 
and  relative  humidity 

Ionospheric  Properties 

Electron  (and  N2  vibration)  temperature,  effective  ion-pair 
production  rate 


Option  for  user  specification. 
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ATMOSU  (1,  120.) 


(IDORN)  are  determined  by  a  series  of  calls  from  ATMOSU  to  five 
auxiliary  subroutines  (ZTTOUT,  JULIAN,  SOLCYC,  SOLORB,  and  SOLZEN) 
and  are  passed  to  ATMOSU  through  ATMOUP  Common. 


The  working  of  these  five  auxiliary  routines  is  as  follows: 

a.  Subroutine  ZTTOUT,  receiving  from  TIME  Common  the 
input  parameters  year  (IYRS) ,  month  (IMONS) ,  day 
(IDAYS) ,  and  zone  time  (ZT)  at  east  longitude  PLON, 
returns  to  TIME  Common  the  year,  month,  day,  and  mean 
or  universal  time  (UT)  at  Greenwich. 

b.  Subroutine  JULIAN,  called  with  the  input  parameters  of 
year  (IYRS),  month  (IMONS),  and  day  (IDAYS)  at  north 
latitude  PLAT,  returns  the  Julian  day  number  at  the 
first  of  the  year  (YRFJ) ,  the  Julian  date  for  vernal 
equinox  (VEQJ) ,  and  the  Julian  day  number  on  the  day 
of  interest  (DAYJ)  through  the  argument  list  and  the 
fractional  season-year  (FYR)  and  the  fractional  summer 
(FST)  through  TIME  Common. 

c.  Subroutine  SOLCYC,  called  with  DAYJ,  computes  the 
average  10.7-cm  solar  flux  (SBAR) ,  an  input  to  ATMOSU 
through  ATMOUP  Common. 

d.  Subroutine  SOLORB,  called  with  YRFJ,  VEQJ,  and  DAYJ 
and  receiving  UT  from  TIME  Common,  computes  the 
Greenwich  apparent  time  GAT,  placed  in  TIME  Common, 
and  returns  the  north  latitude  (SOLLAT)  and  east 
longitude  (SOLLON)  of  the  subsolar  point. 

e.  Subroutine  SOLZEN,  called  with  SOLLAT  and  SOLLON  and 
receiving  PLAT,  PLON,  and  GAT  from  TIME  Common, 
returns  to  ATMOUP  Common  the  solar  zenith  angle  (CHI) , 
the  day-or-night  parameter  (IDORN) ,  and  the  local 
apparent  time  (HL) ;  the  latter  two  parameters  are 
used  by  ATMOSU. 

The  next  step  in  the  initialization  of  ATMOSU  is  to  generate 
a  fit  function  (with  coefficient  array  AA)  for  the  ratio  g/T^. 


^  5  H  T(1+^DAY)  h  rrfry 


This  objective  is  achieved  by: 

a.  Developing  a  fit  function  (with  coefficient  array  DD) 
by  ATMOSU  calling  FITTER  with  the  data- statement 
values  of  f  specified  in  ATMOSU, 
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b.  Evaluating  g/[T(l+f)]  in  ATMOSU,  after  calling  Subroutine 
TEMPZH  to  get  a  kinetic  temperature  profile,  TZH(N) . 

Subroutine  TEMPZH,  as  directed  by  flag  TPFLAG  read  by 
Program  DRVATM  and  passed  through  ZHTEMP  Common,  will 
either  (if  TPFLAG  =  0.0)  interpolate  the  data  base 
[US-66]  for  latitude  and  season  or  (if  TPFLAG  ^  0.0) 
read  a  tabular  temperature  profile  TZH(N)  provided  by 
the  user. 

c.  Calling  Subroutine  FITTER  to  obtain  the  coefficient- 
array  AA. 

After  an  initialization  call  from  ATMOSU  to  SPCMIN ( 1 , ZH) , 
fit  parameters  are  determined  for  0  (nighttime  only)  and  C02  and 
several  other  initializations  are  made;  eventually,  an  initialization 
call  is  made  to  IONOSUd  ,ZH)  .  During  the  initialization  of  SPCMIN, 

13  calls  to  FITTER  and  six  (direct)  calls  to  SOLVE  are  made  to  deter¬ 
mine  the  fit  coefficients  for  the  day  and  night  profiles  of  the  minor 
species  N,  N(2D) ,  NO,  02(1Ag),  CO,  CH4 ,  03>  N02 ,  H20,  H,  OH,  H02 , 

O(^D)  ,  and  N20.  SPCMIN  also  makes  initializing  calls  to  Subroutines 
OZONE  and  (if  WVFLAG  =  0.0)  WATER.  (If  the  user  does  not  want  the 
water  profile  provided  by  the  code,  his  setting  the  flag  WVFLAG  /  0.0 
will  enable  Subroutine  WVOPT  to  read  a  user-provided  water  profile 
according  to  one  of  four  methods  specified  by  the  flag  METHOD  =1,  2, 

3,  4.) 

Subroutine  FITTER,  called  from  both  ATMOSU  and  SPCMIN  with 
values  Y(I)  of  the  dependent  variable  at  NPTS  values  of  the  independent 
variable  X(I) ,  the  degree  NO  of  the  polynomial  used  as  the  fitting 
function,  an  index  IKIND  denoting  whether  it  is  the  dependent  variable 
itself  or  its  natural  logarithm  that  is  to  be  fitted,  and  an  index 
ISIGN  denoting  negative  or  positive  exponents  in  the  polynomial,  returns 
the  polynomial  coefficients  determined  by  the  method  of  least  squares. 

Subroutine  SOLVE,  called  from  Subroutines  ATMOSU,  SPCMIN,  and 
FITTER  with  elements  A(I,J)  of  a  matrix  of  constant  coefficients, 
returns  the  solutions  of  NO  simultaneous  linear  algebraic  equations. 

The  three  major  subroutines  are  ready  for  use  after  they  have 
been  initialized.  On  subsequent  calls  to  ATMOSU (2 , ZH) ,  with  ZH  the 
altitude  in  kilometers,  ATMOSU  uses  ATMOUP  Common  to  return  the  pressure 
(PP) ,  the  mass  density  (RHO) ,  the  temperature  (TT) ,  the  number  densities 
of  six  species  (SNI(I),  I  =  1,6),  and  the  density  scale  height  (HRHO) . 


J 


On  subsequent  calls  to  SPCMIN(2 , ZH) ,  ATMOUP  Common  is  used  to  return 
the  number  densities  of  16  minor  species  (SNI(I),  I  *  7,  8,  13-24,  26, 
and  27)  and  the  relative  humidity  (SNI(25)).  On  subsequent  calls  to 
I0N0SU(2 , ZH) ,  ATMOUP  Common  is  used  to  return  the  number  densities  of 
the  five  charged  species  (SNI(I),  I  =  9-11,  28,  29)  and  the  electron 
(and  N2  vibration)  temperature  (SN1(12))  and  IONOUP  Common  is  used  to 
return  these  same  quantities  (with  different  names)  and  the  effective 
ion- production  rate  (QDEF) . 

Finally,  another  new  routine  for  ROSCOE-IR,  H20SVP ,  is  avail¬ 
able  to  compute  the  saturated  vapor  pressure  of  water  vapor  over  a 
plane  surface  of  (1)  water  for  the  temperature  range  from  173.15  to 
373.15°K  (-100  to  +100°C)  and  (2)  ice  for  the  temperature  range  from 
173.15  to  273.15°K  (-100  to  0°C) .  Values  of  zero  are  returned  for  the 
parameters  outside  the  indicated  temperature  ranges  and  a  message  is 
printed  if  the  routine  is  called  outside  the  indicated  range. 
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SECTION  2 


AMBIENT  ATMOSPHERE  AND  MAJOR  NEUTRAL  SPECIES 
2-1  INTRODUCTION 

The  main  subroutine  for  the  ambient  atmosphere  and  the  major 
neutral  species  is  ATMOSU.  It  is  based  on  the  Subroutine  ATMOS 
originally  developed  by  R.W.  Lowen  [Lo-73a]  and  later  modified  for 
ROSCOE-Radar  [HS-75].  (The  reader  may  refer  to  Lo-73a  or,  better,  to 
HS-75  in  which  Lo-73a  is  reproduced  with  comments,  revisions,  and 
extensions.)  For  the  manner  in  which  ATMOSU  is  used  in  ROSCOE-IR,  see 
Figure  2-1  for  a  simplified  flow  diagram  and  Table  2-1  for  a  summary 
of  inputs  and  outputs. 

2-2  THE  AMBIENT  ATMOSPHERE  MODEL  FOR  ROSCOE-IR 

2-2.1  Background 

To  understand  the  present  model,  it  is  useful  to  recall  that 

used  for  ROSCOE-Radar.  The  ambient  atmosphere  model  for  ROSCOE-Radar 
[Vol.  14a]  consisted  of  a  low-altitude  portion  (z  <  120  km)  and  a  high- 
altitude  portion  (z  _>  120  km),  appropriately  joined  at  120  km  to  pro¬ 
vide  a  smooth  transition.  The  overall  model  was  based  mainly  on  the 
CIRA-1965  [CI-65]  model  atmosphere,  but  was  supplemented  by  use  of  the 
U.S.  Standard-1962  model  atmosphere  since  CIRA-1965  is  not  defined  be¬ 
low  30-km  altitude.  The  key  to  the  low-altitude  portion  was  an  analy¬ 
tic  specification  of  an  altitude  profile  of  the  ratio  g/TM  (where  g 
is  the  acceleration  due  to  gravity  and  T^  is  the  molecular-scale 
temperature)  which  permitted  one  to  obtain  the  pressure  (p)  from  an 
analytic  integration  of  the  hydrostatic  equation  [HS-75,  p.  19,  Equa¬ 
tion  (3)].  One  then  obtained  the  density  (o)  from  the  perfect  gas  law 


P 


(1) 
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Figure  2-1.  Flow  diagram  of  Subroutine  ATMOSU. 
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Table  2 


INPUT  VARIABLES 

Argument  List 
JJ 

ZH 

ALTODN  Common 
ALTKM(47)  - 

ONITE(18)  - 
C02 (25) 

ATMOUP  Common 
HL 

SBAR 
I  DORN 

TIME  Common 
IYRS 

IMONS 

IDAYS 

ZT 

PLAT 


I  J  IL  UJU)'  »«■  HjlMPI 


-1.  Input  and  output  variables  for  Subroutine 
ATMOSU . 


Calculation  flag 

JJ  =  1:  calculate  initialization  parameters 
JJ  =  2 :  calculate  atmospheric  properties. 

Altitude  of  interest  (km). 


The  array  of  altitudes  at  which  minor  species  are 
specified  as  data  in  SPCMIN. 

The  nighttime  O-values  specified  as  data  in  SPCMIN. 
The  C02-values  specified  as  data  in  SPCMIN. 


Local  time  (hrs) . 

Average  10.7-cm  solar  flux  [10”^  W/  (m^  Hz)]. 

Parameter  for  day  or  night.  If  COSCHI  is  the  cosine 
of  the  zenith  angle  of  the  sun  at  point  P,  I DORN  is 
1  for  daytime,  i.e.,  IF(COSCHI .GE . 0 . 0) ,  and  is  -1 
for  nighttime,  i.e.,  IF (COSCHI .LT . 0 . 0) . 


Number  of  the  year  in  the  1900's  (e.g.,  1974  becomes 
74)  at  east  longitude  PLON. 

Number  of  the  month  (e.g.,  February  becomes  2)  at 
east  longitude  PLON. 

Day  of  the  month  at  east  longitude  PLON. 

Zone  time  for  the  15-degree  longitude  interval 
containing  PLON  (decimal  hours). 

North  latitude  of  point  P  (say,  grid  origin) 
(radians) . 


PLON 


-  East  longitude  of  point  P  (say,  grid  origin). 

_  _  _ (Continued 


Table  2-1.  (Cont'd) 


ZHTEMP  Common 
NZHT 

TZH(31) 

ZHT (31) 

OUTPUT  VARIABLES 
ALTODN  Common 
S3ZOD 

ATMOUP  Common 
PP 
RHO 
TT 

SNI(l) 

SNI (2) 

SNI (3) 

SNI(4) 

SNI (5) 

SNI (6) 

HRHO 
FEHSEQ 
TIME  Common 


The  number  of  altitudes  in  the  ZHT  array;  set  in 
SPCMIN  to  be  31 

The  kinetic  temperatures  at  altitudes  ZHT(31); 
provided  by  Subroutine  TEMPZH 

The  altitudes  at  which  the  kinetic  temperatures  are 
specified;  set  in  Subroutine  TEMPZH 


0  density  at  160-km  altitude  for  use  in  evaluating 
O(lD)  in  SPCMIN 

2 

Pressure  (dynes/ cm  ) 

3 

Density  (g/cm  ) 

Temperature  (°K) 

3 

N^  concentration  (1/cm  ) 

3 

O2  concentration  (1/cm  ) 

3 

0  concentration  (1/cm  ) 

3 

Ar  concentration  (1/cm  ) 

3 

He  concentration  (1/cm  ) 

3 

CO2  concentration  (1/cm  ) 

Density  scale  height  (km) 

Fractional  error  in  hydrostatic  equilibrium 

Mass  density  of  dry  air  at  5-km  altitude  for  use  in 
Subroutine  WATER 


RHO 5 KM 


and  the  kinetic  temperature  (T)  from 


T 


M 

^  g 


g 


(2) 


where  M  is  the  mean  molecular  weight  and  M*  is  the  value  of  M  at  sea 
level  (28.96  g/mole) .  The  mean  molecular  weight  (M)  was  obtained  from 


M  _  1 

fG  =  r-rr 


(3) 


where  L  is  Avogadro's  number,  by  specifying  a  (daytime)  profile  of  the 
atomic  oxygen  density  [0].  The  species  densities  were  obtained  from 
the  law  of  partial  pressures  and  the  assumption  of  perfect  mixing. 

Since  there  was  just  one  specification  of  g/T^,  the  low-altitude  por¬ 
tion  of  the  atmosphere  model  was  independent  of  latitude,  season,  and 
diurnal  conditions.  The  high-altitude  portion  depended  on  both 
diurnal  and  solar-cycle  conditions. 

In  planning  for  R0SC0E-IR,  we  recognized  the  need  to  account 
for  the  latitude  and  seasonal  dependence  of  the  atmospheric  tempera¬ 
ture  below  120  km.  The  only  data  base  with  such  information  is  the 
U.S.  Standard  Atmosphere  Supplements  - 1966  [US-66],  Thus,  in  the 
ambient  atmosphere  model  for  ROSCOE-IR,  we  start  with  latitude-  and 
season-dependent  (kinetic)  temperature  profiles  and  we  must  ultimately 
obtain  a  latitude-  and  season-dependent  profile  of  g/T^,  if  we  want  to 
exploit  the  main  structure  of  the  atmosphere  model  for  ROSCOE-Radar . 
However,  there  must  be  some  other  modifications.  For  example,  f  =  fpay 
will  be  prescribed  and  postulated  not  to  have  a  latitude,  season,  or 
diurnal  variation.  This  assumption  implies: 

a.  (M/M*) j^ght  will  be  approximated  by  (M/M*)  Day,  as 
in  ROSCOE-Radar, 

b.  C°^Day  wil1  be  computed  from 

[0]Day  =  2  Lpf/M*  =  2  n*f  ,  (4) 

e.  [0]Night  will  be  computed  directly  from  fit  functions, 
as  in  ROSCOE-Radar. 

20 


2-2.2 


Kinetic  Temperature  Data  and  Interpolation 
2-2.2. 1  Temperature  Data 

The  temperature  data,  dependent  on  latitude  and  season  but 
diurnally-independent ,  are  from  US-66,  with  locations  as  indicated  in 
Table  2-2.  The  data  are  collated  in  Table  2-3  and  plotted  in  Figures 
2-2a  through  2-2d. 

Provision  has  been  made  for  the  user  to  read  in  his  own  pre¬ 
ferred  temperature  profile  at  z  =  0(4)120  km,  accomplished  by  setting 
TP FLAG  ^0.0  which  enables  Subroutine  TEMPZH  to  read  the  desired  data. 

2-2. 2. 2  Interpolation  in  Latitude 

The  procedure  for  interpolating  the  data  base  is,  first,  to 
derive  summer  and  winter  tabular  temperature  profiles  at  the  latitude 
of  interest,  according  to  the  following  rules: 

TATBND  _ Use _ 

1  The  single  temperature  profile  for  15°  latitude 

for  both  winter  and  summer . 

2, 3, 4, 5  The  winter  and  summer  profiles  at  the  two 

boundaries  of  the  latitude  band  and  interpolate 
linearly  on  latitude  to  obtain  the  new  winter 
and  summer  profiles. 

6  The  winter  and  summer  temperature  profiles  for 

75°  latitude. 

2-2. 2. 3  Interpolation  in  Season 

If  LATBND  >  1,  determine  the  temperature  profile  for  the 
calendar  date  of  interest  by  linearly  interpolating  between  January  and 
July  temperature  profiles,  with  proper  account  of  northern  and  southern 
hemispheres.  To  do  this,  we: 

(1)  Determine  a  parameter  Fg^,  where 

Fg^,  =  fraction  of  summer  temperature  to  be  used  in 
the  linear  combination  of  summer-  and  winter- 
temperature  profiles 

=  fraction  of  July  temperature  in  northern  latitudes. 

=  fraction  of  January  temperature  in  southern 

lat i tudes . 

Fg^.  is  evaluated  in  Subroutine  JULIAN. 
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Table  2-2.  Location  of  temperature  data. 


Location  in  US-66  for  Temperature 
LATBND  Latitude  Range  Profile  at  Boundary  of  Band 


1  0  <  0  <  15 

2  15  <  $  <  30 

3  30  <  <p  <  45 

4  45  <  <p  <  60 

5  60  <_  0  <  75 

6  75  <  *  -  90 


15°N  Annual  [0(4)116  km]a  pp .  99,101 
15  °N  Annual  [0(4)116  km]a  pp .  99,101 


30°N  ■ 

/  Januarv 

[0(4)116  km]a 

pp.  103,105 

)  July 

[0(4)116  km]a 

pp.  107,109 

45°N  < 

|  January 

[0(4)116  kmla 

pp.  111,113 

(July 

[0(4)116  km]a 

pp.  115,117 

60 °W  ' 

( January 

[0(4)116  kmla 

pp.  123,125 

(July 

[0(4)116  km]a 

pp.  135,137 

{  75 °N 

January 

[0(4)28  km]b  „ 

p.  139 

»60°N 

January 

[ 32(4) 116  km] 

p.  125 

I75°N 

July  [0(4)28  km] 

p.  145 

»60°N 

Julv  lJ2(4)llb  km]1 ,L 

p.  137 

(Same  as  75  boundary) 


a 

K 


120-km  value  obtained  by  extrapolation. 

-km  value  changed  from  249.22  to  254. 0rK. 
8-km  value  changed  from  207.65  to  212. 5^K. 

32-km  value  changed  from  238.47  to  241.0  K. 


c 


Table  2-3.  Kinetic  temperature  profile  data  from  US-66. 
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TEMPERATURE,  °K 

Figure  2-2a.  Adopted  data  for  temperature  profile  at  15°N  latitude. 


TEMPERATURE,  °K 

Figure  2-2b.  Adopted  data  for  temperature  profile  at  30°N  latitude. 
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TEMPERATURE,  °K 

Figure  2-2c.  Adopted  data  for  temperature  profile  at  45°N  latitude. 


TEMPERATURE,  °K 

Figure  2-2d.  Adopted  data  for  temperature  profile  at  75°N  latitude. 


25 


(2)  Compute  the  temperature  at  given  altitude  from 


T 


FST  Tsummer  +  (1  '  FST)  Twinter 


(5) 


A  test  of  our  adopted  procedure  for  linear  seasonal  inter¬ 
polation  is  made  for  the  45°N  latitude  data  where  we  have  compared 
the  average  of  the  January  and  July  values  with  the  spring/fall  value 
given  by  US-66.  See  Table  2-4  and  Figure  2-3. 

Table  2-4.  Comparison  of  the  mean  of  the  January  and  July 
temperature  profiles  from  US-66  with  the  mid¬ 
latitude  spring/fall  temperature  profile  from 
US-66. 


z . 

45  °N 

Midlat . 
Spring/ 

z  . 

45°N 

Midlat . 
Spring/ 

z  , 

45°N 

Midlat . 
Spring/ 

km 

Mean3 

Fa  lib 

km 

Mean3 

Fallb 

km 

Mean 

cl 

1 

Fallb 

0 

284. 

40 

288. 

15 

44 

261 

.40 

261. 

40 

88 

182. 

30 

190.54 

4 

264. 

68 

262 

17 

48 

270 

.65 

270. 

65 

92 

185. 

50 

191.44 

8 

240. 

00 

236. 

22 

52 

270 

.65 

270. 

65 

96 

195. 

73 

197.77 

12 

220. 

48 

216. 

65 

56 

262 

.  75 

263. 

63 

100 

204. 

54 

202.73 

16 

216. 

16 

216. 

65 

60 

253 

.91 

255. 

77 

104 

223. 

34 

213.02 

20 

217. 

16 

216. 

65 

64 

243 

.  72 

243. 

20 

108 

248. 

50 

226.75 

24 

219. 

54 

220 

56 

68 

230 

.82 

227. 

53 

112 

273. 

62 

241.09 

28 

222. 

67 

224. 

53 

72 

217 

.91 

214. 

07 

116 

315. 

26 

298.43 

32 

228. 

42 

228. 

49 

76 

205 

.01 

202  . 

34 

120 

356. 

50 

355.19 

36 

239. 

28 

239. 

28 

80 

192 

.  13 

190. 

65 

40 

250. 

34 

250. 

35 

84 

183 

.49 

190. 

60 

Average  of  January  anJ  July  values. 
bUS-66 .  pp.  119.121. 


2-2.3  Mean  Molecular-Weight  Profile 

The  mean  molecular-weight  profile,  M,  is  specified  by  the 

func  t ion 


f 


TT 


-  1 


M,,[0] 


Dav 


2L>> 


(6a) 

(6b) 
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Tigurc  2-3.  Comparison  of  the  mean  of  the  January  and  July  temperature  profiles 
from  US-66  with  the  midlatitude  spring/fall  temperature  profile  from 
US- 66. 


taken  to  be  independent  of  latitude,  season,  and  diurnal  variation. 
The  adopted  profile,  given  in  Table  2-5  and  plotted  in  Figure  2-4,  is 
obtained  as  follows-. 


1.  For  z  =  0(4)92  km, 

a.  Take  [0]D  from  data  base  for  ROSCOE-Radar  (set 
as  data  statement  in  Subroutine  SPCMIN  [HS-75]). 

b.  Take  air  density,  p,  from  US-66  (pp.  119,121, 

Table  5.1,  45°  latitude,  spring/fall). 

c.  Compute  f  from  Equation  (6b). 

2.  For  z  =  96(4)120  km, 

a.  Take  M  from  US-66  (p .  16,  Table  2.3,  spring/fall). 

b.  Compute  f  from  Equation  (6a). 

2-2.4  Molecular-Scale  Temperature 

For  the  interpolated  temperature  profile  of  interest,  T, 
and  the  value  of  M*/M  =  1  +  f  derived  from  the  fit  function  for  f, 
the  molecular-scale  temperature  is  computed  from 

Tm  =  (M*/M)T 

=  (1  +  f)T  ,  z  =  0(A)120  km  .  (7) 

2-2.5  The  Ratio  g/TfI 

Tabular  values  of  the  ratio 


g/T 


M  ’ 


z  =  0(4)120  km 


(8) 


are  computed,  followed  by  fitting  the  tabular  data  by  the  llth-degree 
polynomial 


t  '  &  v 


0<z<120km 


Table  2-5.  Molecular  weight  function  adopted  for 
Subroutine  ATMOSU  in  ROSCOE-IR. 


Z. 

km 

f 

z, 

km 

f 

Z, 

km 

f 

z, 

km 

f 

0 

1. 14(-17) 

32 

1 . 59 (- 10) 

64 

3 . 83 (-6) 

96 

1 . 05 ( - 2 ) 

4 

1 . 47 (-16) 

36 

1 . 12 (-9) 

68 

6 . 33 (-6) 

100 

2 . 40(-2) 

8 

5 . 95 (- 16) 

40 

5 . 90(-9) 

72 

1 . 19 (-5) 

104 

3 . 65  (-2) 

12 

3 . 86 (- 15) 

44 

2 . 6 1  ( - 3) 

76 

3 . 20 (-5) 

108 

4 . 78 (-2) 

16 

3 . 47 (-14) 

48 

9. 14(-8) 

80 

8 . 62  (-5) 

112 

5 . 85 (-2) 

20 

2 . 71 (- 13) 

52 

2  .  76 (- 7) 

84 

2 . 44(-4) 

116 

6 . 82 (-2) 

24 

2 . 56 (-12) 

56 

7 . 24(- 7) 

88 

7.11(-4) 

120 

7 . 66 (- 2) 

28 

2. 15 (- 11) 

60 

l 

N_X 

00 

00 

f— < 

92 

2 . 3  8  (  -  3  ) 

2-2.6  Computation  of  the  Major-Species  Quantities 

Having  obtained  an  analytic  fit  function  for  g/TM>  one  can 
compute  the  quantities  for  the  major  species  almost  as  they  are  com¬ 
puted  in  HS-75,  with  the  following  exceptions: 

a.  Pressure  will  be  computed  from  Equation  (3)  on  p.  19  of 
HS-75  and  not  by  use  of  the  pressure-correction  factor 
on  p .  21  of  HS-75 . 

b.  [0]jjav,  computed  in  HS-75  and  currently  from 


[0] 


Dav 


=  2n.j 


2n^ 


f_.  =  2n*f 

Dav  * 


(10) 


will  now  be  latitude-  and  season-dependent  because  n*  (the 
total  number  density  if  no  dissociation)  is  latitude-  and 
season-dependent.  This  situation  differs  from  that  in  HS-75, 
where  tO]pay  was  input  and  used  to  help  determine  f. 

^Night’  as  in  HS"75-  is  set  e9u*l  to  [0]-  for 

90  <  I  ^  120  km  and  is  computed  from  a  fit  function  for 

z  <  90  km  (see  Table  4-2) . 


29 


SECTION  3 


AUXILIARY  SUBROUTINES  FOR  ATMOSU  AND  SPCMIN 
3-1  INTRODUCTION 

The  purpose  of  the  five  auxiliary  subroutines  ZTTOUT, 

JULIAN,  SOLCYC,  SOLORB,  and  SOLZEN  is  to  convert  inputs  that  are  con¬ 
venient  for  the  user  to  the  inputs  required  by  ATMOSU,  SPCMIN,  and 
IONOSU.  It  is  assumed  the  user  will  locate  his  coordinate  system  in 
space  and  time  by  stating  the  geographic  north  latitude  and  east 
longitude,  the  date,  and  zone  time  (based  on  15-degree  intervals  of 
longitude)  in  a  24-hour  system.  These  auxiliary  routines  determine 
the  universal  time,  Julian  day  number,  local  (apparent)  time,  the 
solar  zenith  angle  viewed  from  the  origin,  an  index  denoting  day  or 
night,  and  the  10. 7 -cm  solar  flux. 

These  subroutines  (except  ZTTOUT)  had  their  origin  in  the 
AFWL  WORRY  code  (where  they  were  known  as  JULIAN,  SOLCY,  ORB,  and 
ZSOL)  and  were  revised  when  they  were  incorporated  into  the  early- 
version  ROSCOE  code  [LL-75].  These  routines,  to  which  ZTTOUT  was 
added,  were  further  revised  and  laden  with  comment  cards  under  the 
contractual  effort  for  the  ROSCOE-Radar  code  [HS-75].  For  ROSCOE-IR, 
most  of  these  subroutines  underwent  only  minor  changes. 

Subroutine  TEMPZH,  a  new  routine  for  ROSCOE-IR,  determines 
the  temperature  profile  used  in  Subroutine  ATMOSU,  from  either  a 
stored  data  base  or  one  supplied  by  the  user  via  card  input. 

Subroutines  FITTER  and  SOLVE  are  used  in  providing  least- 
squares  polynomial  fit  functions. 

3-2  SUBROUTINE  ZZTOUT 

Subroutine  ZTTOUT  converts  a  Gregorian  calendar  date  (speci¬ 
fied  by  stating  the  year  in  the  20th  century  (IYRS) ,  the  month  (IMONS) , 
and  the  day  (IDAYS))  and  zone  time  (ZT)  at  a  given  east  longitude 
(PLON)  to  the  Gregorian  calendar  date  and  mean  (or  universal)  time 
(UT)  at  Greenwich. 
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For  ROSCOE-IR  we  have  corrected  the  computation  of  the  zone 
description  (ZD)  when  ZD  should  be  zero  and  revised  TIME  Common. 

See  Table  3-1  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  ZTTOUT . 

3-3  SUBROUTINE  JULIAN 

Subroutine  JULIAN  converts  a  Gregorian  calendar  date  (speci¬ 
fied  by  stating  the  year  in  the  20th  century  (IYRS) ,  the  month  (IMONS) , 
and  the  day  (IDAYS))  to  Julian  day  number  (DAYJ)  for  use  by  Subroutine 
SOLORB . 

In  going  from  ROSCOE-Radar  to  ROSCOE-IR,  we  deleted  the 
variables  KYRS,  KMONS ,  and  KDAYS  from  the  argument  list  since  these 
variables  are  now  supplied  through  TIME  Common  where  they  are  known  as 
IYRS,  IMONS,  and  IDAYS. 

The  new  Subroutine  JULIAN  also  computes,  taking  account  of 
season  reversal  in  the  southern  hemisphere,  (1)  the  variable  FYR,  the 
fractional  season-year,  needed  for  the  new  water  vapor  and  ozone  models 
and  (2)  the  variable  FST,  the  fractional  summer,  needed  for  the 
seasonal  interpolation  between  the  summer  and  winter  temperature  pro¬ 
files  which  are  input  as  data  for  the  revised  low-altitude  ma/j or-species 
model . 

See  Table  3-2  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  JULIAN. 

3-4  SUBROUTINE  SOLCYC 

Subroutine  SOLCYC  computes  the  10.7-cm  solar  flux  (SBAR) ,  an 
input  to  ATMOSU  through  ATMOUP  Common,  based  on  an  assumed  sinusoidal 
11-year  (or  4018-day)  variation.  The  maximum  value  of  250  for  SBAR, 
associated  with  Model  9  of  the  CIRA-65  atmosphere  ,  has  been  assigned 
the  date  of  1  June  1958.  The  minimum  value  of  65  for  SBAR  is  associ¬ 
ated  with  Model  1  of  the  CIRA-65  atmosphere. 

See  Table  3-3  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  SOLCYC. 


32 


Table  3-1.  Input  and  output  variables  for  Subroutine  ZTTOUT. 

INPUT  VARIABLES 
Argument  List 

None 

TIME  Common 

IYRS  -  Number  of  the  year  in  the  1900's  (e.g.,  1974  be¬ 
comes  74)  at  east  longitude  PLON 

IMONS  -  Number  of  the  month  (e.g.,  February  becomes  2)  at 
east  longitude  PLON 

IDAYS  -  Day  of  the  month  at  east  longitude  PLON 

ZT*  -  Zone  time  for  the  15-degree  longitude  interval  con¬ 
taining  PLON  (decimal  hours) 

PLON  -  East  longitude  of  point  P  (radians) 

OUTPUT  VARIABLES 
Argument  List 

None 

TIME  Common 

IYRS  -  A  possibly  revised  value  of  the  input  parameter, 
corresponding  to  Greenwich 

IMONS  -  A  possibly  revised  value  of  the  input  parameter, 
corresponding  to  Greenwich 

IDAYS  -  A  possibly  revised  value  of  the  input  parameter, 
corresponding  to  Greenwich 

UT  -  Universal  time  corresponding  to  the  zone  time  ZT 
(decimal  hours) 

A  value  of  24.0,  treated  by  the  code  as  illegal,  should 

be  input  as  0.0  on  the  next  day. 
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Table  3-2.  Input  and  output  variables  for  Subroutine 
JULIAN. 

INPUT  VARIABLES 
Argument  List 

None 

TIME  Common 

IYRS  -  Number  of  the  year  in  the  1900’s  (e.g.,  1974  be¬ 
comes  74)  in  the  Greenwich  time  zone) 

IMONS  -  Number  of  the  month  (e.g.,  February  becomes  2) 
in  the  Greenwich  time  zone 

IDAYS  -  Day  of  the  month  in  the  Greenwich  time  zone 

PLAT  -  North  latitude  of  point  P  (radians) 

OUTPUT  VARIABLES 
Argument  List 

YRFJ  -  Julian  day  number  (a  half  integer)  at  0  hours 
UT  on  January  1  of  the  year  of  interest 

VEQJ  -  Julian  date  for  vernal  equinox 

DAYJ  -  Julian  day  number  (a  half  integer)  at  0  hours 

UT  on  the  day  of  interest 

TIME  Common 

FYR  -  Fractional  season-year,  being  zero  on  1  January 
in  the  northern  hemisphere  and  zero  on  1  July 
in  the  southern  hemisphere 

FST  -  Fractional  summer,  being  one  on  1  July  and  zero 
on  1  January  in  the  northern  hemisphere  and 
reversed  in  the  southern  hemisphere 
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Table  3-3.  Input  and  output  variables  for  Subroutine 
SOLCYC . 

INPUT  VARIABLES 
Argument  List 

DAYJ  -  Julian  day  number  (a  half  integer)  at  0 
hours  UT  on  the  day  of  interest 

Common 

None 

OUTPUT  VARIABLES 
Argument  List 
None 

ATMOUP  Common 

SBAR  -  Average  10.7-cm  solar  flux 
[1.0E-22  W/ (m^  Hz] 

3-5  SUBROUTINE  SOLORB 

Subroutine  SOLORB  computes  the  north  latitude  (SOLLAT)  and 
east  longitude  (SOLLON)  of  the  apparent  (actual  motion)  subsolar 
point,  given  the  Julian  day  number  at  0-hours  UT  on  1  January  of  the 
year  of  interest  (YRFJ) ,  the  Julian  date  at  which  vernal  equinox 
occurs  (VEQJ) ,  the  Julian  day  number  at  0-hours  on  the  day  of  interest 
(DAYJ),  and  the  universal  time  (UT) . 

In  going  from  ROSCOE-Radar  to  ROSCOE-IR,  we  have  defined  a 
new  variable  (DEUUT)  to  avoid  loss  of  significance  in  computing 
SOLLON  on  a  small-word  machine  and  revised  the  argument  in  the  equa- 
tion-of- time ,  consistent  with  its  definition. 

See  Table  3-4  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  SOLORB. 


Table  3-4.  Input  and  output  variables  for  Subroutine 
SOLORB . 

INPUT  VARIABLES 
Argument  List 

YRJF  -  Julian  day  number  (a  half  integer)  at  0 
hours  UT  on  January  1  of  the  year  of 
interest 

VEQJ  -  Julian  date  for  vernal  equinox 

DAYJ  -  Julian  day  number  (a  half  integer)  at  0 
hours  UT  on  the  day  of  interest 

TIME  Common 

UT  -  Universal  time  corresponding  to  zone  time 

ZT  (decimal  hours) 

OUTPUT  VARIABLES 
Argument  List 

SOLLAT  -  North  latitude  of  subsolar  point  (radians) 

SOLLON  -  East  longitude  of  subsolar  point  (radians) 

TIME  Common 


GAT 


Greenwich  apparent  time  (decimal  hours) 


ST  '■ 


3-6  SUBROUTINE  SOLZEN 

Subroutine  SOLZEN  computes  CHI  and  COSCHI,  the  cosine  of  the 
solar  zenith  angle  CHI  at  a  point  P,  given  the  geographic  north  lati¬ 
tude  (PLAT)  and  east  longitude  (PLON)  of  the  point  P  and  the  north 
latitude  (SOLLAT)  and  east  longitude  (SOLLON)  of  the  subsolar  point. 
The  day-or-night  parameter  IDORN  is  +1  for  daytime,  i.e.,  if 
COSCHI  _>  0.0,  and  is  -1  for  nighttime.  The  local  apparent  time  (HL) 
is  also  computed  from  the  Greenwich  apparent  time  (GAT)  and  the  east 
longitude  of  the  point  P  (PLON). 

See  Table  3-5  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  SOLZEN. 

Table  3-5.  Input  and  output  variables  for  Subroutine 
SOLZEN . 


INPUT  VARIABLES 


Argument  List 

SOLLAT  -  North 

latitude 

of 

SOLLON  -  East 

longitude 

of 

TIME  Common 

PLAT  -  North 

latitude 

of 

PLON  -  East 

longitude 

of 

i 

subsolar  point  (radians) 
subsolar  point  (radians) 

point  F  (sav,  grid  origin)  (radians) 
point  P  (radians) 


OUTPUT  VARIABLES 

Argument  List 

None 

ATMOUP  Common 

IDORN  -  Parameter  for  day  or  night.  If  COSCHI  is  the  cosine 
of  the  zenith  angle  of  the  sun  at  point  P,  IDORN  is 
1  for  daytime,  i.e.,  IF(C0SCHI . GE . 0 . 0) ,  and  is  -1  for 
nighttime,  i.e.,  IF(C0SCHI .LT. 0 . 0) 

HL  -  Local  apparent  time  (decimal  hours,  e.g.,  2230  hours 
becomes  22.50  hours) 

TIME  Common 

CHI  -  Zenith  angle  of  the  sun  at  point  P  (radians) 
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3-7 


SUBROUTINE  TEMPZH 


Subroutine  TEMPZH  determines  the  temperature  profile  (tabular, 
0(4)120  km)  by  interpolating  the  data  base  [US-66]  for  latitude  and 
season,  to  be  used  as  input  to  the  major  atmospheric  species  model  for 
the  low-altitude  range  from  0-  to  120-km  altitude.  The  user  may  by¬ 
pass  the  code's  specification  of  temperature  profile  in  the  low-altitude 
(0-  to  120-km)  region  by  (1)  requiring  the  driving  program  to  set 
TPFLAG  to  a  nonzero  value,  which  is  transferred  to  Subroutine  TEMPZH 
through  ZHTEMP  Common,  and  (2)  allowing  Subroutine  TEMPZH  to  read  the 
user-specified  profile  at  altitudes  0.0(4.0)120.0  km. 

See  Table  3-6  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  TEMPZH. 

3-8  SUBROUTINE  FITTER 

A  brief  description  of  the  operation  of  Subroutine  FITTER  is 
given  in  Section  1.  A  summary  of  inputs  and  outputs  for  Subroutine 
FITTER  is  given  in  Table  3-7. 

3-9  SUBROUTINE  SOLVE 

A  brief  description  of  the  operation  of  Subroutine  SOLVE  is 
given  in  Section  1.  A  summary  of  inputs  and  outputs  for  Subroutine 
SOLVE  is  given  in  Table  3-8. 
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Table  3-6.  Input  and  output  variables  for  Subroutine 
TEKIZH. 


INPUT  VARIABLES 
Argument  List 
None 

TIME  Common 

PLAT  -  North  latitude  of  point  P  (radians) 

FST  -  Fraction  of  summer  temperature  profile  to 

be  used  with  (l.-FST)  of  the  winter 
temperature  profile  for  a  given  day  of  the 
year  at  a  given  latitude 

ZHTEMP  Common 

TPFLAG  -  Flag  for  optional  treatment  of  temperature 
profile 

=  0.0  normal  treatment 

f  0.0  optional  treatment,  allowing  Sub¬ 
routine  TEMPZH  to  read  the  user- 
. specified  profile  at  altitudes 
z  =  0(4)120  km 

Card  Input  (optional) 

TZH(I) ,  -  Temperature  profile  specified  by  user  at 

1=1,31  altitudes  z  =  0(4)120  km 


OUTPUT  VARIABLES 
Argument  List 
None 

ZHTEMP  Common 

TZH(I) ,  -  Temperature  profile,  determined  by  inter- 

1=1,31  polation  of  the  data  base  [US-66]  for 

latitude  and  season,  used  as  input  to  the 
major  atmospheric  species  model  for  the 
low-altitude  range  from  0-  to  120-km 
altitude 


mi 


Table  3-7.  Input  and  output  variables  for  Subroutine 
FITTER. 


INPUT  VARIABLES 


Argument  List 


NPTS 

X(I) 

Y(I) 

NO 

IKIND 


Number  of  data  points 

Values  of  the  independent  variable,  e.g., 
altitude  (km) 

Values  of  the  dependent  variable,  e.g., 
species  concentration  (cm“3) 

Degree  of  polynomial  to  be  fitted 

Index  for  kind  of  equation  to  be  fitted 


NO 

=  1  if  equation  is  ln(Y)  =  ^  A  Xn 

n=0  n 

NO 

=  2  if  equation  is  Y  =  £  AnXn 

n=0 

ISIGN  -  Index  for  sign  of  exponents 

=  1  for  negative  exponents 
=  2  for  positive  exponents 

Common 

None 

OUTPUT  VARIABLES 
Argument  List 

Z(J)  -  The  least-squares  fit  coefficients.  Z(l) 
corresponds  to  Aq,  Z(2)  to  A^,  etc. 


Common 

None 
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Table  3-8.  Input  and  output  variables  for 
Subroutine  SOLVE. 

INPUT  VARIABLES 
Argument  List 

A(I,J)  -  Element  (I,J)  of  matrix  of  constant 
coefficients  for  NO  simultaneous 
linear  algebraic  equations 

NO  -  The  number  of  equations 

Common 
None 

OUTPUT  VARIABLES 
Argument  List 

X(K)  -  The  least-squares  fit  coefficients. 

These  are  the  same  as  the  output 
Z(K)  from  FITTER. 
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SECTION  4 


MINOR  NEUTRAL  SPECIES 
4-1  SUBROUTINE  SPCMIN 

ROSCOE-IR  requires  many  more  neutral  species  than  ROSCOE- 
Radar  and  an  improved  description  of  some  of  those  included  in 
ROSCOE-Radar . 

The  ROSCOE-IR  high-altitude  chemistry  module  [Volume  11-1] 

requires  the  minor  neutral  species  0,  C00 ,  CO,  N(4S),  N(ZD),  N(ZP), 

1  z 

NO,  NO2 ,  02(  Ag) ,  03>  H,  OH,  HO2 ,  H2O,  and  He  (in  practice,  however, 
CO2,  CO,  H2O,  and  He  are  nonreacting  species) .  The  ROSCOE-IR  low- 
altitude  external  chemistry  module  [Volume  11-1]  requires  the  minor 
neutral  species  0,  C02 ,  N(4S) ,  N(2D),  NO,  N02 .  02(1Ag),  03 ,  H,  OH, 

H02,  and  H2O.  (The  additional  species  CO,  CH^ ,  and  N2O  were  initially 
requested  but  they  are  not  used.)  All-altitude  profiles  for  diurnal 
conditions  are  provided  for  0,  C02 ,  and  He  in  Subroutine  ATMOSU. 
Subroutine  SPCMIN  provides  (either  directly  or  indirectly)  the  pro¬ 
files  for  the  remaining  species  listed  above. 

The  inputs  and  outputs  for  Subroutine  SPCMIN  are  summarized 
in  Table  4-1.  The  nature  of  the  functions  used  for  fitting  the 
adopted  data-base  values  [Volumes  14b  and  14c]  in  various  altitude 
ranges  is  given  in  Tables  4-2  through  4-18  for  0,  O^D),  02('1'A  ), 

03,  N,  N(2D),  N(2P),  NO,  N02,  N20,  C02,  CO,  CH4,  H20,  OH,  H02,  and  H. 
respectively . 

4-2  OZONE 

Our  model  for  altitude  profiles  of  the  03  mass-mixing  ratio 
has  been  specified  as  a  function  of  latitude  and  season  [Mv-78,  Sec¬ 
tion  3].  The  altitude  dependence  of  the  03  mass-mixing  ratio 
(m^(03))  is  treated  by  using  a  transition  boundary  at  55-km  altitude. 
Below  55  kr,  the  model  accounts  for  the  variation  of  mR(03)  with 
altitude,  latitude,  and  season.  The  model  predicts: 

(text  continues  on  p.  61) 
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Table  4-1. 


INPUT  VARIABLES 
Argument  List 
KK 

ZH 

ATMOUP  Common 
I  DORN 

TIME  Common 
PLAT 

DATA 

ALTKM(47) 
ANODAY(21) 
ANONIT(21) 
AhzDDN  (41) 

AN4SDN(33) 

CH4PCC 

COMPCC 

C02 (25) 


Input  and  output  variables  for  Subroutine 
SPCMIN . 


Calculation  flag 

=  1,  calculate  initialization  parameters 
=  2,  calculate  atmospheric  properties 
Altitude  of  interest  (km) 


Index  for  day  or  night 
=  +1 ,  day 
=  -1,  night 

North  latitude  of  point  P  (radians) 


Altitudes  (z=0(5)230  km)  at  which  minor  species 
densities  are  specified  as  data 

Noontime  data-base  values  of  [NO]  at  altitudes 
0(5)100  km  at  50°  latitude 

Midnight  data-base  values  of  [NO]  at  altitudes 
0(5)100  km  at  50°  latitude 

Data-base  values  of  the  basic  component  (T^(z)) 
of  the  N(^D)  densities  between  125-  and  200-km 
altitude,  augmented  by  25  zeros  below  125  km 

Data-base  values  of  the  basic  component  (T^(z)) 
of  the  N  densities  between  100-  and  160-km 
altitude,  augmented  by  20  zeros  below  100  km 

Factor  used  (3 , 75369008E+16)  with  total  mass 
density  (g/cm3)  to  convert  CH4  mass-mixing  ratio 
(ppirsn)  to  molecules/cm^ 

Factor  used  (2 . 14992030E+16)  with  total  mass 
density  (g/cm3)  to  convert  CO  mass-mixing  ratio 
(ppmm)  to  molecules/cm3 

Data-base  values  of  [CO2 ]  at  altitudes  0(5)120  km 


Continued 


Table  4-1.  (Cont'd) 


DAHDAY(21) 

DAHNIT(21) 

DATC0(31) 

DN20(12) 

DOHDAY (21) 

DOHNIT(21) 

H02DAY (21) 

H02NIT(21) 

H20DN(21) 

H20PCC 

NALTMH 

NALTNO 
NALT02 
N ALT 2D 

NALT4S 

NDEGNO 

NDEG2D 


Noontime  data-base  values  of  [H]  at  altitudes 
0(5)100  km 

Midnight  data-base  values  of  [H]  at  altitudes 
0(5)100  km 

Data-base  values  of  CO  mass-mixing  ratio  (ppmm) 
at  altitudes  0(5)150  km 

Selected  values  of  NoO  volume-mixing  ratio 
(ppbv)  at  altitudes  0(5)55  km 

Noontime  data-base  values  of  [OH]  at  altitudes 
0(5)100  km 

Midnight  data-base  values  of  [OH]  at  altitudes 
0(5)100  km 

Noontime  data-base  values  of  [HO,]  at  altitudes 
0(5)100  km 

Midnight  data-base  values  of  [H09]  at  altitudes 
0(5)100  km  z 

Data-base  values  of  H2O  mass-mixing  ratio  (ppmm) 
ai_  altitudes  20(5)120  km 

Factor  used  (3 . 34260935E+16)  with  total  mass 
density  (g/cnw)  to  convert  H2O  mass-mixing  ratio 
(ppmm)  to  molecules/cm3 

Two  plus  the  number  of  altitudes  (NMTH=23)  be¬ 
tween  10  and  120  km  used  to  fit  CH^  mass-mixing 
ratios 

Number  of  altitudes  (21)  between  0  and  100  km 
used  to  fit  daytime  NO  densities  at  50°  latitude 

Number  of  altitudes  (11)  between  0  and  50  km 
used  to  fit  daytime  62(^4^)  densities 

Number  of  altitudes  (16)  between  125  and  200  km 
used  to  fit  the  basic  component  (T-,(z))  of  the 
N(^D)  densities 

Number  of  altitudes  (13)  between  100  and  160  km 
used  to  fit  the  basic  component  (T,(z))  of  the 
N  densities 

Degree  of  the  polynomial  (12)  used  to  fit  the 
daytime  NO  densities  between  0  and  100  km  at 
50°  latitude 

Degree  of  the  polynomial  (6)  used  to  fit  the 
basic  component  (Tt(z))  of  the  N(^D)  densities 
between  125  and  200  km 


(Continued) 
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Table  4-1.  (Cont'd) 


NDEG4S 

NDGH20 

NDGMTH 

NDGN02 

NDG02D 

NKMH20 

NKMN02 

0NITE(18) 

0Z3PCC 

01DDAY(33) 
02SDGD(47) 
02SDGN (47) 
03DAY(26) 

03NIT(27) 

PI 

SMETH(25) 


Degree  of  the  polynomial  (5)  used  to  fit  the 
basic  component  (Ti(z))  of  the  N  densities  be¬ 
tween  100  and  160  km 

Degree  of  the  polynomial  (12)  used  to  fit  the 
HoO  mass-mixing  ratio  (ppmm)  between  20  and 
120  km 

Degree  of  the  polynomial  (11)  used  to  fit  the 
CHa  mass-mixing  ratio  (ppmm)  at  altitudes 
0(5)120  km 

Degree  of  the  polynomial  (12)  used  to  fit  the 
daytime  NO2  densities  between  0  and  160  km 

Degree  of  the  polynomial  (10)  used  to  fit  the 
daytime  02(^-Ag)  densities  between  0  and  50  km 

Number  of  altitudes  (21)  between  20  and  120  km 
used  to  fit  H2O  mass-mixing  ratios  (ppmm) 

Number  of  altitudes  (33)  between  0  and  160  km 
used  to  fit  the  daytime  N02  densities 

Midnight  data-base  values  of  [0]  at  altitudes 
0(5)85  km 

Factor  used  (1 . 25459271E+22)  with  total  mass 
density  (g/cnH)  to  convert  O3  mass-mixing  ratio 
(kg/kg)  to  molecules/cm3 

Noontime  data-base  values  of  [0(^D)]  at 
altitudes  0(5)160  km 

Noontime  data-base  values  of  [0?(*A  )]  at 
altitudes  0(5)230  km  ® 

Midnight  data-base  values  of  [0o(iAp)]  at 
altitudes  0(5)230  km 

Noontime  data-base  values  of  O3  mass-mixing 
ratio  (ppmm)  at  altitudes  55(5)120  km,  augmented 
by  an  assigned  value  at  125  km  to  facilitate 
fitting 

Midnight  data-base  values  of  O3  mass-mixing 
ratio  (ppmm)  at  altitudes  55(5)120  km,  augmented 
by  two  assigned  values  at  125  and  130  km  to 
facilitate  fitting 

3.141592653590 

Data-base  values  of  CH4  mass-mixing  ratio  (ppnan) 
at  altitudes  0(5)120  km 

(Continued) 
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Table  4-1.  (Cont'd) 


SN02D(33) 
SN02N (33) 

OUTPUT  VARIABLES 
Argument  List 
None 

ATMOUP  Common 

SNI (7) 

SNI (8) 
SNI(13) 
SNI (14) 
SNI(15) 
SNI (16) 
SNI(17) 
SNI(18) 
SNI (19) 
SNI(20) 
SNI(21) 
SNI (22) 
SNI (23) 
SNI (24) 
SNI(25) 
SNI(26) 
SNI(27) 

ALTODN  Common 

ALTKM(47) 
ONITE(18) 
C02 (25) 


Noontime  data-base  values  of  [NO2]  at 
altitudes  0(5)160  km 

Midnight  data-base  values  of  [NO~]  at 
altitudes  0(5)160  km 


3 

N  concentration  (1/cm  ) 

O 

NO  concentration  (1/cm  ) 

02('*'&  )  concentration  (l/cm^) 

O 

O3 

no2 

h20 

H 

OH 

ho2 

CO 

n2° 


ch4 

N(^S) 

N(2D) 


Relative  humidity,  percent 

1  3 

0(  D)  concentration  (1/cm  ) 

0(^P)  concentration  (l/crn-^) 


See  input 
See  input 

See  input  (Note  that  the  C02  densities  from 
0-  to  100-km  altitude  are  reset  in  Subroutine 
ATMOSU  by  using  a  constant  volume-mixing 
ratio  of  3.2  *  10“^.) 

_ . _  (Continued) _ 
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Table  4-2.  Fit  functions  for  0  density  profiles. 


Altitude  Range, 
km 


Description 


Day 


0  -  120  ATMOSU  low-altitude  model 


>120 

0-60 
60  -  75 

75  -  85 


85  -  90 

90  -  120 


ATMOSU  high-altitude  model 
Night3 ’ k 

Constant  at  data-point  value 

Exponential,  with  slope  determined  by  data 
points  at  60  and  75  km 

Exponential-like  function  with  altitude- 
dependent  scale  height  so  determined  that 
function  passes  through  data  points  at  75,  80, 
and  85  km 

Exponential,  with  slope  determined  by  data 
point  at  85  km  and  low-altitude-model  value  at 
90  km 


>120 


ATMOSU  low-altitude  model 
ATMOSU  high-altitude  model 


Table  4-3. 


Fit  functions  for  CK^D)  density  profiles, 


Altitude  Range, 

km  Description 


Day 

0  - 

47 

Exponential- like  function  (lower- limited  to  1.0) 
with  altitude-dependent  scale  height  so  determined 
that  function  passes  through  data  points  at  25, 

40,  and  47  km 

47  - 

80 

Exponential- like  function  with  altitude-dependent 
scale  height  so  determined  that  function  passes 
through  data  points  at  47,  65,  and  (assigned  value 
of  10  at)  80  km 

1 

o 

00 

100 

Exponential,  with  slope  determined  by  data  points 
at  80  and  100  km  and  passing  through  assigned 
value  of  10  at  80  km 

100  - 

120 

Exponential- like  function,  with  altitude-dependent 
scale  height  so  determined  that  function  passes 
through  data  points  at  100,  110,  and  120  km 

120  - 

160 

Exponential,  with  slope  determined  by  data  points 
at  120  and  160  km  and  passing  through  data  point 
at  120  km 

>160 

Proportional  to  O,*3 

[0(LD)]  =  ( [0(1D) ]/[0] >160[0(Z) ] 

Night 

>0 

Constant,  at  assigned  value  of  1.0 

a  My- 78 ,  Table  9-1. 

k  This  procedure  makes  [0(^D)]  dependent  on  the  time  and  solar 
flux  to  the  extent  that  [0]  is  dependent  on  these  parameters. 
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Table  4-4. 


Fit  functions  for  (^(^A  )  density  profiles 

8 


Altitude  Range, 
km 


Description 


b 


0  -  50 

50  -  75 

75  -  90 


>90 


0  -  70 
70  -  80 


lOth-degree  polynomial  (coefficients  DD)  to  match 
data  points  at  0(5)50  km 

Exponential,  determined  by  data  points  at  50  and 
75  km 

5th-degree  polynomial,  determined  by  data  points 
at  75(5)90  km  and  derivatives  of  50-to~75  km  fit- 
function  at  75  km  and  :>90-km  function  at  90  km 

Exponential,  determined  by  data  points  at  90  and 
105  km 

Night 


Constant  at  data-point  value 

Exponential,  determined  by  data  points  at  70  and 
80  km 


80  -  100  5th-degree  polynomial,  determined  by  data  points 

at  80(5)95  km  and  values  '£  daytime  fit-function 
and  its  derivative  at  100  km 


Daytime  fit-function 


Table  4-5.  Fit  functions  for  0^  mass-mixing  ratio  profiles. 


Altitude  Range, 
km 


Description 


0  -  55 

55  -  75 


75  -  90 


>90 


55  -  70 


70  -  75 
75  -  90 


•90 


Day  or  Night 

New  model,  latitude-  and  season-dependent3 

Dayk 


5th-degree  polynomial  (coefficients  T03(I)),  to 
match  data  points  at  55(5)75  km  and  the  (zero) 
derivative  of  the  0-  to  55-km  fit-function  at  55 
km 


5th-degree  polynomial  (coefficients  ’J03(I)),  to 
match  data  points  at  75(5)90  km  and  derivatives  of 
55-  to  75-km  fit-function  at  75  km  and  s90-km  fit- 
function  at  90  km 


Exponential,  determined  bv  data  points  at  90  and 
105  km 


Night 


5th-degree  polynomial  (coefficients  V03(I)),  to 
match  data  points  at  55(5)70  km,  the  (zero) 
derivative  of  the  0-  to  55-kn  fit-function  at  55  km, 
and  the  derivative  of  the  70-  to  75-km  fit-function 
at  70  km 

Exponential,  determined  by  data  points  at  70  and 
75  km 

5th-degree  polynomial  (coefficients  VT03(I)),  to 
match  data  points  at  75(5)90  km  and  derivatives  of 
70-  to  75-km  fit-function  at  75  km  and  s90-km  fit- 
function  at  90  km 

Exponential,  determined  bv  data  points  at  90  and 
105  km 


a  My- 78 , 
b  My- 75, 


Section  3. 

Section  4.2  and  HS-75,  Table  15. 
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Table  4-6.  Fit  function  for  N  density  profiles.' 


Altitude  Range, 

km 


Description 


Dav  or  Night 


T!(  =  ) 


Analytic  expression0  dependent  on  altitude,  local 
apparent  time,  latitude,  fractional  season-vear, 
and  solar  decimetric  flux.  Five  factors  include 
an  altitude-dependent  basic  factor  (T^) ,  lati¬ 
tudinal  factor  with  diurnal  variation  (T2) , 
seasonal  factor  (.expCI^)),  diurnal  factor  with 
altitudinal  and  latitudinal  variations  (exp(T^)), 
and  solar-flux  factor  (Tc,) 


Exponential  function,  passing  through  the  fit- 
function  value  at  100  km 

5th-degree  polynomial,  determined  by  least 
squares  (coefficients  CC)  for  data  points  at 
100(5)160  km 

Exponential  function,  passing  through  the  fit- 
function  value  at  160  km 


T.,  (L,  t) 


T3(f) 


Analytic  expression  dependent  on  latitude  and 
local  apparent  time 


Analytic  expression  dependent  on  fractional 
season-year 


T4(t,z,L) 


T5(F) 


Analytic  expression  factorable  into  an  expression 
dependent  on  the  local  apparent  time  and  the 
latitude  and  an  expression  dependent  on  the 
altitude 


Analytic  expression  dependent  on  solar  decimetric 


My -78,  Section  12. 

My-78,  Section  12,  Equations  (1)  through  (5). 
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Table  4-7.  Fit  functions  for  N(ZD)  density  profiles.' 


A1 t i tude  Range , 

km 

Description 

Day  or  Night 


Analytic  expression  dependent  on  altitude, 
local  apparent  time,  and  (through  a  dependence 
on  the  total  nitrogen  atom  density)  on  latitude, 
fractional  season-year,  and  solar  decimetric 
flux 


SNI (7)  and  T,  (2) 


T?(z) 


0  -  125 

125  -  200 


Tg(t) 


These  functions  are  given  by  the  formulas  for 
the  total  nitrogen  atom  densities 


Exponential  function,  passing  through  the  fit- 
function  value  at  125  km 

6th-degree  polynomial,  determined  by  least 
squares  (coefficients  BB)  for  data  points  at 
125(5)200  km 

Exponential  function,  passing  through  the  fit- 
function  value  at  200  km 


Analytic  expression  dependent  on  the  local 
apparent  time 


My-78,  Section  13. 

My-78,  Section  13,  Equations  (1)  and  (2) 


Table  4-8.  Fit  functions  for  N(2P)  density  profiles.3 


Altitude  Range, 
km 

Description 

Day  or 

Night 

0  -  119.9 

R2P2D 

s  [N(2P)]/[N(2D)] 

=  0.01 

>119.9 

R2P2D 

*  5-5  »  l°-‘  P2P2D 

e900/z 

P2P2D 

=  0.01 

o 

In  the  absence  of  information  on  the  ambient  density  of  N(  P), 
B.F.  Myers  has  offered  an  estimate  based  on  simplifying  assump¬ 
tions:  (1)  [N(2P)]  and  [N(2D)]  are  in  steady  state,  (2)  the 

production  rate  of  N(2P)  is  a  factor  P2P2D  ^  0.01  times  that 
for  N(2d),  (3)  the  collisional  deactivation  rate  of  N(2P)  is 

the  same  as  that  for  N(2D),  (4)  the  radiative  decay  rate  of 

N(2D)  is  small  compared  with  its  collisional  decay  rate, 

(5)  the  altitude  profile  of  the  ratio  R2P2D  TN(2p) ] / [N (2D) ] , 
computed  by  using  nominal  rate  coefficients,  can  be  approxi¬ 
mated  by  the  expression  5.5  *  10"^  "  p2P2D  *  exp(900/z)  for 
z  120  km,  at  which  altitude  R1t,0n  =  6.01. 


a 

Table  4-9.  Fit  functions  for  NO  density  profiles. 


Altitude  Range, 
km 


Description 


0  -  100 


0-50 
50  -  60 


60  -  85 

85  -  100 

>100 


12th-degree  polynomial,  determined  by  least 
squares  (coefficients  AA)  for  data  ponts  at 
0(5)100  km 

Night*3 


Constant  at  data-point  value  of  1.0 

Exponential- like  function  ( lower- limited  to  1.0), 
with  altitude-dependent  scale  height  so  deter¬ 
mined  that  function  passes  through  data  points  at 
50,  55,  and  60  km 

Exponential,  determined  by  data  point  at  60  km  and 
daytime  polynomial  fit-function  at  85  km 

Daytime  fit-function 

Day  or  Night 

Analytic  expression  dependent  on  altitude,  local 
apparent  time,  latitude,  and  solar  decimetric 
flux  [My-78,  Section  11,  Equation  (6)] 


a  My-78,  Section  11. 

k  For  both  day  and  night,  we  add  to  the  logarithm  of  the  NO 
density  a  latitude-dependent  term  with  an  altitude- 
dependent  coefficient.  Without  the  latitude-dependent 
term,  the  fit  functions  apply  to  a  50"  latitude.  See  My-78, 
Section  11,  Equation  (8). 
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Table  4-10.  Fit  functions  for  NO2  density  profiles.3 


Altitude  Range, 
km 

.  b 

Description 

Day 

0  -  160 

12th-degree  polynomial,  determined  by  least  squares 
(coefficients  HH)  for  data  points  at  0(5)160  km 

>160 

Exponential,  with  slope  determined  by  fit-function 
values  at  140  and  160  km,  and  passing  through  fit- 
function  value  at  160  km 

Night 

0-55 

tonight  '  Wday  +  ^day  ’  ^night 

55  -  65 

Exponential,  with  slope  determined  by  fit  function 
at  55  km,  and  passing  through  data  point  at  65  km 

65  -  82 

Exponential,  with  slope  determined  by  data  point 
at  65  km  and  by  daytime  fit-function  value  at 

82-km  altitude 

>82 

Daytime  fit  function 

a  My-75 ,  Table  7-1. 


Unchanged  from  HS-75,  Table  16. 
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Table  4-11.  Fit  functions  for  N20  volume-mixing  ratio  profiles* 


Altitude  Range, 
km 


Description 


0  -  55 


Day  or  Night 


8th-degree  polynomial,  determined  by  least 
squares  (coefficients  CN20)  for  volume-mixing- 
ratio  data-points  at  0(55)55  km 

Constant  at  volume-mixing  ratio  data-point 


My- 78 ,  Table  10-2. 

This  profile,  obtaining  at  high  latitude,  must  be  multiplied 
by  a  latitude-dependent  factor  which  itself  is  altitude- 
dependent.  See  My- 78,  Section  10,  Equat  ion  (2). 


Table  4-12,  Fit  functions  for  C02  volume-mixing  ratio  profiles.' 


Altitude  Range, 
km 


Description 


0-100 


100  -  120 


or  Night 

Constant  volume-mixing  ratio  of  0.00032  in 
ATMOSU  low-altitude  model 

6th-degree  polynomial,  to  match  ATMOSU  low- 
altitude-model  value  at  100  km  and  data  points 
at  105(5)120  km  and  derivatives  of  low-altitude- 
model  function  at  100  km  and  ATMOSU  high- 
altitude-model  function  at  120  km 

ATMOSU  high-altitude  model 


My- 75,  Table  8-1. 
k  Unchanged  from  HS-75,  Table  10. 
c  Fits  are  made  in  Subroutine  ATMOSU. 
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Table  4-13.  Fit  functions  for  CO  mass-mixing  ratio  profiles.3 


Altitude  Range, 
km 

Description 

Day  or 

Night 

0  -  150 

13th-degree  polynomial  determined  by  least 
squares  (coefficients  EE)  for  data  points  at 
0(5)150  km 

>150 

Exponential,  passing  through  fit  function  at 
km 

150 

3  My- 78 ,  Table  5- 

-1. 

Table  4-14.  Fit 

functions  for  CH^  mass-mixing  ratio  profiles. 

a 

Altitude  Range, 
km 

Description 

Day  or 

Night 

0  -  10 

Constant,  at  fit-function  value  at  10  km 

10  -  120 

llth-degree  polynomial,  determined  by  least 
squares  (coefficients  FF)  for  data  points  at 
10(5)120  km 

>120 

Exponential,  passing  through  fit  function  at 
km 

120 

My- 78 .  Table  4-1. 
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Table  4-15.  Fit  functions  for  H2O  mass-density  and  mass¬ 
mixing  ratio  profiles.3 

v 

— 1 - 

Altitude  Range, 

km  Description 


0  -  5 


5  -  14 

14  -  45 


45  -  120 


-■•120 


Day  or  Night 

Analytic  fit  functions  for  water  vapor  mass 
density  (g/m^) ,  expressed  as  the  sum  of  a  mean 
and  a  seasonal  term, 

[l^O]  =  Mean(a.z)  +  Season (f , a , z) , 

where  a  =  type  of  moisture  region  (six  in  total, 
distributed  among  11  geographic  regions), 
f  =  fraction  of  season-year,  and  z  =  altitude. 

Interpolation  between  natural  logarithm  of  mass¬ 
mixing  ratio  (ppmm)  values  at  5  and  14  km 

Analytic  fit  functions  for  water  vapor  mass¬ 
mixing  ratio,  expressed  as  the  sum  of  a  mean  and 
a  seasonal  term, 

mR  =  Mean(with  transition  at  latitude  L%28° 
for  z  v  30  km) 

+  Season(f,L,z  ^  20  km) 

12th-degree  polynomial  for  natural  logarithm  of 
mass-mixing  ratio  (ppmm) ,  determined  by  least 
squares  (coefficients  GG)  for  data  points  at 
20(5)120  km 

Exponential , 

mR(z)  =  mR (120)  exp[ -0 . 0575 (z- 120) ] , 

where  mR(120)  is  determined  from  the  fit  function 
from  45  to  120  km 
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My-78,  Section  2. 


Table  4-16. 

Fit  functions  for  OH  density  profiles.3 

Altitude  Range, 

km 

Description 

Da; 

/  or  Night 

0-80 

7th-degree  polynomial,  determined  by  least 
squares  (coefficients  CCOH)  for  data  points  at 

0(5)80  km 

80  -  100 

Exponential,  with  slope  determined  by  fit-func¬ 
tion  value  at  80  km  and  passing  through  assigned 
value  (60  for  day  and  190  for  night)  at  100  km 

>100 

Analytic  expression,  passing  through  fit-function 
value  at  100  km 

My-78,  Table  6-1. 


Table  4-17.  Fit  functions  for  H02  density  profiles 


Altitude  Range, 
km 


0-65 

65  -  75 

75  -  100 


100 


Description 


Day  or  Night 


Polynomial  (6th  degree  for  day,  7th  degree  for 
night) ,  determined  by  least  squares  (coefficients 
CH02)  for  data  points  at  0(5)65  km 

Exponential,  with  slope  determined  by  fit-function 
value  at  65  km  and  data-point  value  at  75  km 

Product  of  two  functions:  (1)  Exponential,  with 
slope  determinedly  data  point  values  at  75  and 
95  km  and  (2)  10^ (z)  where  F(z)  is  given  by 


F(,.>  .  !10  -  °-2  |z-801 

(o 


75izi85 
zN  85 


Product - funct ion  passes  through  data-point  values 
at  75  and  95  km 

Exponential,  passing  through  fit-function  value 
at  100  km  with  prescribed  slope 


My-78,  Table  7-1. 
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Table  4-18. 


Fit  functions  for  H  density  profiles.3 


Altitude  Range, 
km 

Description 

Day 

0  -  35 

Exponential  (lower- limited  to  1.0)  with  slope 
determined  by  data  points  at  30  and  35  km  and 
passing  through  data  point  at  30  km 

35  -  40 

Exponential,  with  slope  determined  by  data  points 
at  35  and  40  km  and  passing  through  data  point 
at  35  km 

40  -  86 

Exponential,  with  slope  determined  by  data  point 
at  40  and  assigned  value  of  9.0  *  10'  at  86  km 
and  passing  through  data  point  at  40  km 

Night 

0-74 

Constant,  at  assigned  value  of  1.0 

vO 

oo 

i 

Exponential- like  function  (lower-limited  to  1.0 
in  range  below  about  74.265  km),  with  altitude- 
dependent  scale  height  so  determined  that  func¬ 
tion  passes  through  data  points  at  75,  80,  and 

86  km 

Day  or  Night 

86  -  100 

Exponential,  with  slope  determined  by  data  points 
at  86  and  10C  km  and  passing  through  data  point 
at  86  km 

>100 

Sum  of  exponential  and  power  law,  adjusted  to 
pass  through  data  point  at  100  km 

3  My- 78 ,  Table  8-1. 
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(1)  An  increase  in  the  total  0*  content  of  the  atmosphere 
with  increasing  latitude, 

(2)  A  general  increase  in  the  maximum  O3  partial  pressure 
with  increasing  latitude  and  an  associated  decrease  in 
the  altitude  of  the  maximum, 

(3)  A  decrease  in  the  0^  partial  pressure  above  about  24  km 
with  increasing  latitude, 

(4)  A  seasonal  dependence  the  variation  of  which  is  a  maximum 
in  the  altitude  range  between  15  and  35  km  (depending  on 
latitude) ,  and 

(5)  A  variation  in  the  seasonal  maximum  with  changing 
altitude . 

Above  55  km,  the  model  accounts  for  the  altitude  and  day- to¬ 
night  variation  of  m^(O^) ,  but  does  not  (explicitly)  treat  seasonal  or 
geographical  effects.  (However,  the  major-species  model  (Section  2) 
uses  a  temperature  profile  that  is  latitude-  and  season-dependent; 
hence,  there  is  a  corresponding  dependence  for  the  total  mass  density 
and  the  number  density  of  minor  species,  such  as  0^,  specified  in  terms 
of  mixing  ratios.)  The  model  does  not  include  (small)  longitudinal 
variations,  day-to-day  fluctuations,  or  long-term  trends. 

A  guide  to  the  principal  features  of  the  ozone  model  is  given 
in  Table  4-19.  Figure  4-1  is  a  simplified  flow  chart  of  the  operational 
phase  of  the  O^-portion  of  Subroutine  SPCMIN,  mainly  for  altitudes 
above  55  km;  the  nature  of  the  fit  functions  evaluated  here  is  given  in 
Table  4-5. 

Subroutine  OZONE  computes  the  latitude  and  season  dependence 
of  the  mass-mixing  ratio  of  0^  for  altitudes  from  0  to  55  km  by  evaluat¬ 
ing  Equation  (14)  and  its  supporting  equations  (principally,  Equation 
(11))  in  Section  3  of  My-78.  The  inputs  and  outputs  for  Subroutine  OZONE 
are  summarized  in  Table  4-20. 
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igure  4-1.  Flow  chart  for  the  O^-portion  of  Subroutine 
SPCMIN  during  its  operational  phase. 
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Table  4-20.  Input  and  output  variables  for  Subroutine  OZONE. 

INPUT  VARIABLES 
Argument  List 

KK  -  Calculation  flag 

=  1,  calculate  initialization  parameters 

=  2,  calculate  O3  mass-mixing  ratio  for  0-  to  55-km 
altitude 

ZKM  -  Altitude  of  interest,  from  0  to  55  km 
TIME  Common 

PLAT  -  North  latitude  of  point  P  (radians) 

FYR  -  Fractional  season-year,  being  0  on  1  January  in 
northern  hemisphere  and  on  1  July  in  southern 
hemisphere 

OUTPUT  VARIABLE 


Argument  List 

0Z3  -  O3  mass-mixing  ratio  at  altitude  ZKM  (kg/kg) 


4-3 


WATER 


4-3.1  The  Coded  Model 

Our  model  for  altitude  profiles  of  1^0  density,  as  a  function 
of  latitude,  longitude,  and  season,  is  *,iven  in  Section  2  of  My-78  and 
may  be  summarized  thuslv.  The  altitude  dependence  of  the  1^0  density 
is  treated  by  using  transition  boundaries  at  5-  and  14-km  altitude. 

For  the  0-  to  5-km  altitude  range,  the  Earth’s  surface  is  divided  in¬ 
to  11  geographic  zones  with  six  types  of  quasi-homogeneous  moisture 
regions  (a  significant  reduction  from  the  NASA  data-base  model  having 
hundreds  of  geographic  zones  and  45  homogeneous  moisture  regions) ;  in 
each  region  che  seasonal  dependence  is  included.  For  the  5-  to  14-km 
altitude  region,  H.,0  densities  are  determined  by  interpolating  the  mix¬ 
ing  ratios  at  5-  and  14-km  altitude.  At  and  above  14-km  altitude,  we 
include  a  seasonal  dependence  which  (1)  decreases  with  increasing 
altitude  and  vanishes  for  altitudes  above  about  20  km.  and  (3)  has  a 
latitude-dependent  phase  shift  due  to  the  influx  of  water  vapor  from 
the  tropical  troposphere  into  the  lower  stratosphere.  An  associated 
transition  region  at  about  30"  latitude  vanishes  for  altitudes  above 
about  30  km  where  a  single  mixing-ratio  profile  obtains 

Table  4-21  summarizes  the  geographic  regions  used  in  modeling 
the  0-  to  5-km  altitude  moisture  regions.  Figure  4-2  gives  a  simple 
guide  to  the  H.,0  model,  with  the  principal  features  as  shown  in  Table 
4-22  . 

Figure  4-3  is  a  simplified  flow  chart  of  the  operational 
phase  of  the  H. ,0-portion  of  Subroutine  SPCMIN;  the  nature  of  the  fit 
functions  evaluated  here  is  given  in  Table  4-15. 

Subroutine  WATER  computes  the  longitude,  latitude,  and  season 
dependence  of  water  vapor  for  altitudes  from  0  to  45  km  by  evaluating 
the  equations  in  Section  2  of  Mv-78.  The  inputs  and  outputs  for  Sub¬ 
routine  WATER  are  summarized  in  Table  4-23. 

4-3.2  Option  for  User-Specified  H.,0  Profile 

To  supplement  our  H,0  density  model,  we  provide  to  the 
R0SC0E  user  an  option  whereby  he  can  input  his  own  profile  of  interest. 
To  implement  this  option  the  user  inputs  a  value  greater  then  0.0  for 
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|H20j  =  MEAN  (a.  z) 

+  SEASON  If. a,  z) 


|  EQUATION  (1 1. 

(  SECTION  2  [  My -78] 


«  =  TYPE  OF  MOISTURE  REGION 
(6,  IN  11  GEOGRAPHIC  ZONES) 

f  =  FRACTION  OF  YEAR 
z  =  ALTITUDE 


5  ^  z  ^  14  KM 


|h20|  =  INTERPOLATE 


EQUATIONS  (3a)  &  (3b), 
SECTION  2  [My -78] 


z  ^  14  KM 


|h20|  =  MEAN  (WITH  BOUNDARY  AT  L*30°  )  EQUATIONS  (5)  &  (7), 

FOR  z  c  30  KM) 

+  SEASON  (f,  L,  z  '  20  KM)  )  SECTION  2  [My -78] 


Figure  4-2.  Simple  guide  to  the  ^0  model. 
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Figure  4-3.  Flow  chart  for  the  ^O-porticn  of  Subroutine 
SPCMIN  during  its  operational  phase. 
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Table  4-23.  Input  and  output  variables  for  Subroutine  WATER. 

INPUT  VARIABLES 
Argument  List 

KK  -  Calculation  flag 

=  1,  calculate  initialization  parameters 

=  2,  calculate  H2O  mass-mixing  ratio  for  0-  to  45-km 
altitude 

ZH  -  Altitude  of  interest,  from  0  to  45  km 
ATMOUP  Common 

3 

RHO  -  Mass  density  of  dry  air  (g/cm  ) 

TIME  Common 

PLAT  -  North  latitude  of  point  P  (radians) 

PLON  -  East  longitudinal  of  point  P  (radians) 

FYR  -  Fractional  season-year,  being  0  on  1  January  in 

northern  hemisphere  and  on  1  July  in  southern  hemi¬ 
sphere 

3 

RH05KM  -  Mass  density  of  dry  air  at  5-km  altitude  (g/cm  ) 

OUTPUT  VARIABLE 
Argument  List 

H20  -  Mass-mixing  ratio  of  H90  at  altitude  ZH  (ppmm) 


WVFLAG.  (The  normal  value  of  1.0  is  necessary  for  WVFLAG  so  that  Sub¬ 
routine  SPCMIN  can  call  Subroutine  WATER  during  the  initialization 
phase.)  For  WVFLAG  f  0.0,  Subroutine  WVOPT  is  allowed  to  read  water 
data  in  one  of  four  optional  forms  according  to  METHOD  =  1,2 ,3, 4,  which 
we  will  discuss  below.  But  first,  it  is  anticipated  that  the  user  will 
be  most  interested  in  using  his  own  low-altitude  data  over  the  altitude 
range  from  HH(1)  =  0.0  to  HH(NOP),  but  he  must  also  actually  read  in 
data  over  the  remaining  higher-altitude  range  from  HH(N0P+1)  to 
HH(NZH)  =  120.0.  If  the  user  has  no  personal  preference  for  data  in 
the  higher-altitude  range,  he  may  find  it  convenient  to  use  the  data  in 
a  data  statement  in  Subroutine  SPCMIN,  given  at  altitudes  20(5)120  km 
and  in  units  of  parts  per  million  by  mass  (ppmm) . 

In  considering  what  options  should  be  available,  note  that 
Huschke  [Hu-59,  p.  462]  states  that  a  radiosonde  measures  pressure, 
temperature,  and  humidity.  (Since  humidity  is  not  further  specified, 
it  could  be  any  measure  of  the  water-vapor  content,  such  as  absolute 
humidity,  relative  humidity,  specific  humidity,  mixing  ratio,  or  dew¬ 
point  temperature.) 

Before  proceeding,  we  digress  for  the  benefit  of  some  readers 
to  discuss  various  ways  of  expressing  the  water-vapor  content  of  moist 
air.  We  have  a  need  for  some  or  possibly  all  of  them  and  the  conver¬ 
sion  relations . 


1 .  Water-Vapor  Number  Density 

3 

[H2O]  =  H90  molecules/cm  . 

The  corresponding  vapor  pressure  at  temperature  T  is 


2.  Absolute  Humiditj 


pH20  ”  (grams  of  H20)/m* 


also  called  vapor  concentration  or  vapor  density.  Note  the  convention 
-  3  -  3 

of  using  m  and  not  cm  .  The  corresponding  vapor  pressure  at  tempera¬ 
ture  T  is 
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(2a) 


pw  -  10'6  PH2o^/m3)  kT  dyne/cm2 


-  10~6  pH  -.(g/m3)  « R  ■  T  dyne/cm2 

h2U  ”h,,0 


(2b) 


where  *  Avogadro's  number,  R  *  gas  constant,  and  q  =  molecular 
weight  of  water  vapor. 

3 .  Mass-Mixing  Ratio 

r  =  the  dimensionless  ratio  of  the  mass  of  water  vapor  to 
m 

the  mass  of  dry  air,  sometimes  expressed  in  units  of  parts  per  million 
by  mass ,  i . e . , 


rm(PPmm)  =  (S^O7"^7  (‘’dry  air7™3 

=  PHyS/m3)7pdry  air(8/cm3) 


(3a) 

(3b) 


4 .  Relative  Humidity 

Uw  =  the  dimensionless  ratio  of  the  actual  vapor  pressure 
(pw)  to  the  saturation  vapor  pressure  (ew) ,  usually  expressed  in  per¬ 
cent,  i.e.  , 


Uw  *  100  P„7ew  ■  (4) 

At  temperatures  less  than  0  C,  the  relative  humidity  is  evaluated  with 
respect  to  water,  not  ice  [Li-71,  p.  348], 

5 .  Dew  Point  (or  dew-point  temperature) 

=  the  temperature  to  which  a  given  parcel  of  air  must  be 
cooled  at  constant  pressure  and  constant  water-vapor  content  in  order 
for  saturation  to  occur.  At  the  dew-point  temperature  the  saturation 
vapor  pressure  of  the  parcel  equals  the  actual  vapor  pressure  of  the 
contained  water  vapor. 

Since  most  of  our  F^O  modeling  is  done  in  terms  of  mass¬ 
mixing  ratios,  we  decided  that  the  general  technique  should  be  one  in 
which  the  user  specifies  tabular  data  in  terms  of  either  mass-mixing 


ratios  or  quantities  from  which  mass-mixing  ratios  can  be  computed  by 
the  code.  The  options  selected  are: 

Option  1.  Mass-Mixing  Ratio.  The  user  reads  in  values  of 
the  water-vapor  mass-mixing  ratio  expressed  in  units  of  parts  per 
million  by  mass  (ppmm) .  For  this  option  no  further  preprocessing  is 
required. 

Option  2.  Absolute  Humidity.  The  user  reads  in  values  of 

3 

the  absolute  humidity,  q  (grams  ^O/m  ).  The  desired  values  of  mass¬ 
mixing  ratio  are  computed^from  Equation  (3b). 

Option  3.  Relative  Humidity.  The  user  reads  in  values  of 
the  relative  humidity  (in  percent),  Uw>  The  desired  values  of  mass¬ 
mixing  ratio  are  computed  from  the  following  steps: 


a. 

b. 


c . 


d. 


Compute  saturated  vapor  pressure  (over  water) , 
ew(mb) ,  from  Subroutine  H20SVP. 

Compute  vapor  pressure  from 

pw(mb)  =  0.01  Uwew  . 

Compute  the  absolute  humidity  from 


JHo0 


(g/m  )  = 


10’  pu(mb) 


<r/mh2o>t 


Compute  the  mass-mixing  ratio  from  Equation  (3b). 


(4a) 


(2c) 


Option  4.  Dew  Point.  The  user  reads  in  values  of  the  dew¬ 
point  temperature  (T^) .  The  desired  values  of  the  mass-mixing  ratio 
are  computed  from  the  following  steps: 

a.  Compute  the  vapor  pressure  (Pw(Tj)),  which  equals 
the  saturation  vapor  pressurew(e° (T  ,) )  at  the  dew¬ 
point  temperature  (T^) ,  by  usingwSuDroutine  H20SVP . 

b.  Compute  the  absolute  humidity  from  Equation  (2c). 

c.  Compute  the  mass-mixing  ratio  from  Equation  (3b). 

Since  most  of  our  H2O  modeling  is  done  in  terms  of  mass¬ 
mixing  ratio  rm(ppmm) ,  the  outputs  from  Subroutine  SPCMIN  (which  are 
independent  of  the  value  of  WVFLAG)  can  be  derived  as  follows: 
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2 

1 .  Water-Vapor  Number  Density  ([H^O],  molecules /cm  ) 

Compute  the  number  density 

[H20]  -  10'6  rm(ppm,)  pdry  alr(g/cm3)  >1*/!%^.  (5) 

2 .  Relative  Humidity  (U^,  percent) 

a.  Compute  vapor  pressure  (pw(mb)),  from  Equation  (lb). 

b.  Compute  saturation  vapor  pressure  (e  (mb))  by  using 
Subroutine  H20SVP. 

c.  Compute  relative  humidity  (Uw)  from  Equation  (4). 

In  the  above  discussion  we  have  mentioned  Subroutine  H20SVP 
several  times.  This  subroutine  computes  the  saturation  vapor  pressure 
of  water  vapor  over  a  plane  surface  of  (1)  water  for  the  temperature 
range  from  173.15  to  373.15°K  (-100  to  +100°C)  and  (2)  ice  for  the 
temperature  range  from  173.15  to  273.15°K  (-100  to  0°C) .  Values  of 
zero  are  returned  for  the  parameters  outside  the  indicated  temperature 
ranges  and  a  message  is  printed  if  the  routine  is  called  outside  the 
indicated  range. 

The  formula  used  for  the  water  reference  is  a  third  degree 
polynomial  given  by  Wexler  [We- 76,  Equation  (16b)]  as  an  approxima¬ 
tion  to  his  Equation  (15)  for  the  natural  logarithm  of  the  vapor 
pressure  (in  Pascals)  of  water  in  the  range  from  0  to  100°C  but  used 
here  also  in  the  extrapolated  region  from  0  to  -100°C.  The  basic 
formula  for  the  ice  reference  is  that  given  by  Goff  [Go-63a,  Equation 
(5)].  However,  to  simplify  the  computation  we  have  fitted  a  sixth- 
degree  polynomial  (EWDEI)  to  the  ratio  e  /e. ,  where  e.  is  the  saturated 
vapor  pressure  over  ice  as  given  by  Goff  [Go-63a,  Equation  (5)],  and 
compute  e^  from  the  expression 

e.  =  e  /EWDEI .  (6) 

1  w 

The  input  and  output  variables  for  Subroutines  WVOPT  and 
H20SVP  are  given  in  Tables  4-24  and  4-25. 
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Table  4-24.  Input  and  output  variables  for  Subroutine  WVOPT. 

INPUT  VARIABLES 
Argument  List 

JJ  -  Calculation  flag 

=  1,  initialization  call 
=  2,  normal  operation  call 

HKM  -  Altitude  of  interest  (km)  (used  only  if  JJ  =  2) 

ATMOUP  Common 

3 

RHO  -  Air  density  (g/cm  ) 

TT  -  Temperature  (°K) 

VPC  Common 

METHOD  -  Flag  indicating  one  of  four  options  for  treatment 
of  water  vapor 

=  1,  data  values  in  parts  per  million  by  mass  (ppmm) 

=  2,  data  values  in  absolute  humidity  (g/m  ) 

=  3,  data  values  in  relative  humidity  (percent;  10 

percent  is  input  as  10.,  not  0.10) 

=  4,  data  values  in  dew-point  temperature  (°K) 

NOTE:  For  METHOD  =  2,3,4,  the  subroutine  converts  the 
first  NOP  values  of  the  data  into  parts  per 
million  by  mass,  during  initialization. 

DATA  Read  In 

HH(N)  -  Altitude  array  0.0  to  120.0  km 

WVC(N)  -  H2O  data  using  one  of  the  four  options.  For  N=1,N0P, 
data  have  dimensions  dictated  by  the  option  used. 

For  N=N0P+1,NZH,  data  have  dimensions  of  parts  per 
million  by  mass.  N0P=NZH  is  a  valid  input  condition. 

OUTPUT  VARIABLE 
Argument  List 

H20MR  -  Water  vapor  content  of  moist  air  in  units  of  parts 
per  million  by  mass  at  altitude  HKM 
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Table  4-25.  Input  and  output  variables  for  Subroutine  H20SVP. 


INPUT  VARIABLES 
Argument  List 

TEMP  -  Temperature  (°K) 

DATA  Quantities 

AA(I)  -  Coefficients  in  third-degree  polynomial  for 

EH20  -  ew>  given  by  Wexler  [We-76,  Equation  (16b)] 

BB(I)  -  Coefficients  in  sixth  degree  polynomial  for  EWDEI 
used  to  fit  the  ratio  EH20/EICE  :  eVJ/^i,  in  the 
range  from  0  to  -100"C 

OUTPUT  VARIABLES 
Argument  List 

EH20  -  Saturation  vapor  pressure  over  water  (millibar  = 
1000  dyne/cm-  =  100  Pascal) 

EICE  -  Saturation  vapor  pressure  over  ice  (mb) 


4-4  PLOTS  OF  MINOR  NEUTRAL  SPECIES  PROFILES 

Comparisons  of  the  fit-function  values  with  the  data-base 
values  [Volumes  14c  and  14b]  of  minor  species  densities  are  given  in 
Figures  4-4  through  4-20.  Normally,  circles  and  triangles  are  used  to 
denote  the  data-base  values  for  dav  and  night  conditions,  respectively 
Data-base  values  originally  specified  as  mixing  ratios  [Mv-78]  have 
been  converted  to  particle  number  densities  here  so  that  all  profiles 
would  be  in  terms  of  number  densities.  Where  the  day  and  night  values 
do  not  differ,  only  the  circles  are  shown.  The  fit-function  values, 
obtained  from  the  sample  problems  for  which  the  output  is  given  in 
Section  6,  are  plotted  as  the  solid  curves  for  daytime  conditions  and 
dashed  curves  for  the  nighttime  conditions.  If  the  daytime  and  night¬ 
time  values  do  not  differ,  only  the  solid  curves  are  shown.  For  those 
species  with  dependencies  on  local  apparent  time  (t) ,  geographical 
position  (or  latitude,  L) ,  fractional  seasonal-year  (f).  or  solar  deci 
metric  flux  (F) ,  the  legends  normally  give  the  specific  conditions, 
taken  from  the  sample  problems  in  Section  6. 


ty  profile 


Figure  4-fc.  N  density  profile. 
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CH,  density  profile 
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Figure  4-17.  l^O  density  profile. 
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Figure  4-18.  OH  density  profile. 
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SECTION  5 


AMBIENT  IONOSPHERE  (SUBROUTINE  IONOSU) 


5-1 


INTRODUCTION 


Subroutine  IONOSU  provides  the  properties  of  the  ambient 
ionosphere  required  by  the  chemistry  modules.  The  quantities  required 
for  the  E-  and  F-region  ionospheric  chemistry  in  ROSCOE-IR  are  ob¬ 
tained  by  a  natural  extension  of  the  method  used  for  ROSCOE-Radar  (see 
Volume  14a,  pages  67-74).  The  principal  change  is  from  the  generic 


molecular  ion  M+  to  N0+ 


N+.  and  ot .  There  is  no  change  in  the 


2  t  auu  w  2 < 

requirements  of  the  D-region  chemistry  module  for  ionospheric  prop¬ 
erties  . 

See  Table  5-1  for  a  summary  of  inputs  and  outputs  for  Sub¬ 
routine  IONOSU. 


5-2 


E-  AND  F-REGION  IONOSPHERIC  PROPERTIES 


The  E-  and  F-region  chemistry  module  requires  the  following 
quantities : 

a.  q,  the  effective  total  ion- production  rate  that 
reproduces  the  ambient  ionosphere  when  used  with 
the  chemistry  model  (cm” 3  sec-1) 


b. 

c . 

d. 

e . 

f . 


+  -3 

0  ,  the  positive  atomic-ion  density  (cm  ) 

N0+,  the  N0+  molecular-ion  density  (cm-^) 

N2 ,  the  N2  molecular-ion  density  (cm  ) 

4.  4.  _  3 

O2,  the  O2  molecular-ion  density  (cm  ) 


T  ,  the  electron  (and  N2  vibration)  temperature  (°K). 

The  E-  and  F-region  ionospheric  chemistry  equations,  which 
are  a  natural  extension  of  the  pair  of  equations  used  for  ROSCOE-Radar 
(Volume  14a,  Section  5,  Equations  (1)  and  (2)),  are 
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Table  5-1.  Input  and  output  variables  for  Subroutine 
IONOSU . 

INPUT  VARIABLES 
Argument  List 

JJ  -  Calculation  flag 

If  calculate  initialization  parameters 

(JJ=2:  calculate  ionospheric  prpperties 

ZH  -  Altitude  of  interest  (km) 

ATMOUP  Common 

I DORN  -  Parameter  for  day  or  night.  If  COSCHI  is  the 
cosine  of  the  zenith  angle  of  the  sun  at  point 
P,  I DORN  is  1  for  daytime,  i.e.,  IF (COSCHI .GE. 
0.0),  and  is  -1  for  nighttime,  i.e., 

IF (COSCHI.LT. 0.0) 

SNI(l)  -  N2  concentration  (1/cm^) 

SNI(2)  -  O2  concentration  (1/cm^) 

SNI(3)  -  0  concentration  (1/cm^) 

SNI(7)  -  N  concentration  (l/cm^) 

SNI(8)  -  NO  concentration  (1/cm^) 

TT  -  Heavy-particle  temperature  (°K) 

ALTODN  Common 

ALTKM(47)-  The  array  of  altitudes  at  which  minor  species 
are  specified  as  data  in  SPCMIN 

RATCOF  Function  Routine 

Reaction  rate  coefficients  for  chemical  ractions 


DATA 


HEBOTD  -  Altitude  below  which  the  daytime  electron  den¬ 
sity  decreases  exponentially  and  above  which 
the  logarithm  of  the  daytime  electron  density 
increases  parabolically  (km) 

EBOTD  -  Daytime  electron  density  at  altitude  HEBOTD 
(1/cnr ) 

HF2MXD  -  Altitude  at  which  the  maximum  daytime  electron 
density  occurs  (km) 

(Continued) 
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Table  5-1.  (Cont'd) 


EF2MXD 

EDDSCH 

F2DSCH 

HEBOTN 

EBOTN 

HF2MXN 

EF2MXN 

EDNSCH 

F2NSCH 

TXT120 

TXT200 

TXT800 

DQDAY(18) 

DQNIT(18) 


Daytime  electron  density  at  altitude  HF2MXD 

(1/cm3) 

Scale  height  with  which  the  daytime  electron 
density  decreases  below  altitude  HEBOTD  (km) 

Scale  height  with  which  the  daytime  electron 
density  decreases  above  altitude  HF2MXD 

Altitude  below  which  the  nighttime  electron 
density  decreases  exponentially  and  above 
which  the  logarithm  of  the  nighttime  elec¬ 
tron  density  increases  sinusoidally  (km) 

Nighttime  electron  density  at  altitude 
HEBOTN  (1/cm3) 

Altitude  at  which  the  maximum  nighttime 
electron  density  occurs  (km) 

Nighttime  electron  density  at  altitude 
HF2MXN  (1/cm3) 

Scale  height  with  which  the  nighttime  elec¬ 
tron  density  decreases  below  altitude  HEBOTN 
(km) 

Scale  height  with  which  the  nighttime  elec¬ 
tron  density  decreases  above  altitude  HF2MXN 

The  difference  between  the  electron  tempera¬ 
ture  and  the  gas  temperature  at  120-km  alti¬ 
tude  in  the  ambient  daytime  ionosphere  (°K) 

The  difference  between  the  electron  tempera¬ 
ture  and  the  gas  temperature  at  200-km  alti¬ 
tude  in  the  ambient  daytime  ionosphere  (°K) 

The  difference  between  the  electron  tempera¬ 
ture  and  the  gas  temperature  at  800-km  alti¬ 
tude  in  the  ambient  daytime  ionosphere  (°K) 

The  effective  total  ion-production  rate  at 
altitudes  0(5)85  km  that  reproduces  the 
ambient  daytime  D-region  ionosphere  when 
used  with  the  chemistry  model  (ion  pairs/ 
[cm3  sec]) 

The  effective  total  ion-production  rate  at 
altitudes  0(5)85  km  that  reproduces  the 
ambient  nighttime  D-region  ionosphere  when 
used  with  the  chemistry  model  (ion  pairs/ 
[cm3  sec]) 


(Continued) 
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Table  5-1.  (Cont'd) 


OUTPUT  VARIABLES 

ATMOUP  Common 

SNI(9) 
SNI(IO)  - 
SNI (11)  - 

SNI(12)  - 

SNI(28)  - 

SNI (29)  - 

IONOUP  Common 

EFE 

EFOP 

EFNOP 

EFN2P 

EF02P 

TX 

QDEF 


3 

Electron  concentration  for  ZH  _>  90  km  (1/cm 
0+  concentration  for  ZH  _>  90  km  (1/cm^) 

N0+  concentration  for  ZH  >_  90  km  (l/cm^) 

Electron  (and  No  vibration)  temperature  (°K) 

+  3 

N2  concentration  for  ZH  >_  90  km  (1/cm  ) 

0^  concentration  for  ZH  _>  90  km  (l/cm^) 

See  SNI(9)  above 
See  SNI(10)  above 
See  SNI(ll)  above 
See  SNI (28)  above 
See  SNI (29)  above 
See  SNI (12)  above 

The  effective  total  ion -production  rate  that 
reproduces  the  ambient  ionosphere  when  used 
with  the  chemistry  model 


[o+] 

- 

] 

-  a^O^Le] 

(1) 

Cno+] 

= 

q2  +  32i^0+^  + 

623^N2^ 

+  e24[o2] 

-  a2[NO+3[e3 

(2) 

[n+3 

= 

^3 

633^] 

-  01 3  C N  2  3  [ e  3 

(3) 

CoJ] 

q4  +  341[0+3 

■  b44[02] 

-  a4[023 [e3 

(4) 

Le] 

= 

[o+3  +  [N0+3  + 

[N+3  + 

[o23 

(5) 

^i 

= 

Ytq 

(6a) 

4 

S Yi 

= 

1 

(6b) 

4 

Yi 

= 

VE  *t 

(7) 

A1 

= 

[03 

(8a) 

A2 

= 

2[N0] 

(8b) 

A3 

= 

2[N2] 

(8c) 

A4 

= 

2[o23  . 

(8d) 

The  assumed  reactions  and  rate  coefficients  are  given  in  Table  5-2. 
The  rate  coefficients  are  supplied  to  Subroutine  IONOSU  by  Function 
RATCOF . 

In  the  above  equations,  the  quantities  are  defined  as 

follows : 

+  +  3 

[<n  =  or  atomic-ion  density  (cm  ) 

[NO  ]  =  NO  molecular-ion  density  (cm  ) 

C N2 3  =  N2  molecular-ion  density  (cm  ) 

98 


Table  5-2.  E-  and  R- region  ionospheric  chemistry 
reactions  and  rate  coefficients. 


Reaction 

Here 

Number 

SO-76 

Reaction 

Rate  Coefficient*’** 

10 

-- 

0+ 

0  +  hv 

L 

11 

— 

0+ 

+ 

t  +  e 

- 

0  +  e 

i 

2a 

R6 

N0+ 

+ 

e 

N(4S)  +  0 

3.5 

x  10'7  (Te/380)*0-5 

2b 

R5 

N0+ 

♦ 

e 

-♦ 

N(2D>  +  0 

3.5 

x  10"7  (Te/380>*05 

3 

R3 

N2 

+ 

e 

-♦ 

N(4S)  +  N(2D) 

2.9 

x  10*7  (Te/300)*0  :J3 

4 

R20 

°2 

+ 

e 

0  +  (03D) 

2.2 

x  10'7  (300/Te)°  9 

5 

R2 

0+ 

+ 

N, 

N0+  +  N(4S) 

(6  « 

10“ 13  T.  >  600“K 

(6  « 

10'1J  (600/Tj) ,  Tl<600 

6 

R21 

0+ 

+ 

°2 

-e 

©2  +  0 

2.0 

x  10"U  (Tj/300)'0,4 

7 

R4 

N2 

+ 

0 

NO*  +  N(2D) 

2.5 

x  10-10  (300/Tt)0  44 

8 

R8 

<5 

+ 

N(4S) 

- 

N0+  +  0 

1.8 

x  10* 10 

9 

R9 

°2 

+ 

NO 

-* 

NO*  +  02 

6.3 

X  10*10 

a  1  6 

In  units  of  cm  /sec  for  two-body  reactions  and  cm  /sec  for  three-body  reactions 


b  From  SO-76  (Strobel  et  al.)  except  for  our  reaction  numbers  10  and  11  taken 
from  BLKCHM  in  ROSCOE-Radar . 

c  is  given  by:  -  C^q  +  C|^[e]  +  1.5  *  10  7  [e]^/T3 

Cln  -  radiative  recombination  rate  coefficient  for  the 
reaction  Cfr  +  e  ■*  0  +  hv 

-  4.4  x  10'12  (Te/300)‘°-75 

C,,  «  collisional-radiative  recombination  rate  coefficient  for 
the  reaction  0++e+e-0+e 

-  1.2  *  10'19  (Te/300)’5  0 
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'll 

q2,q3’q4 


e 

6 

3 

6 

3 

3 

6 


11 

21 

C5 

C6 

23 

24 
33 
41 
44 


+  -3 

92  molecular-ion  density  (cm  ) 

-3  -1 

total  ion- production  rate  (cm  sec  ) 

+  -3-1 

0  -ion  production  rate  (cm  sec  ) 

N0+-,  N^- ,  O^-ion  production  rate  (cnT^  sec"^) 

C5CN2]  +  Cg[02]  =  3£i 

c5[n2] 

3 

ion-molecule  interchange  rate  coefficient  (cm  /sec) 

3 

ion-molecule  charge- exchange  rate  coefficient  (cm  /sec) 
C?[0] 

Cg[N]  +  C9[NO] 

Cy[0]  =  ^23 

c6[°2] 

c8[n]  +  C,[NO]  -  b24 

(corresponds  to  ar  in  ROSCOE-Radar) 

effective  two-body  collisional-radiative  recombination 
rate  coefficient  for  atomic  ions  (cm^/sec)  [KJ-74b] 


=  C, 


dissociative  recombination  rate  coefficient  for  the 
reaction  N0+  +  e  -*■  products  (cnW/sec) 


a3  ”  C3 

=  dissociative  recombination  rate  coefficient  for  the 
reaction  +  e  -*■  N(^S)  +  N(^D)  (cm^/sec) 

a4  =  c4 

=  dissociative  recombination  rate  coefficient  for  the 
reaction  02  +  e  -*■  0  +  O(l-D) 
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Assume  steady-state  conditions.  After  putting  Equation  (6) 
into  Equations  (1)  through  (4),  we  have 


Yjq  -  3 -  a1[0+][e]  =  0 
y2q  +  021[O+]  +  S23CnJ]  +  e24[02]  -  a2[NO+][e3  =  0 
Y3q  -  633[N2]  -  a3[N2][e]  *  0 


Y4q  +  e4L[o+] 


B44^2^  "  a4t02][e]  -  0 


(9) 

(10) 
(ID 
(12) 


By  regarding  [e]  as  known,  we  have  five  equations  ((5),  (9),  (10),  (11) 
and  (12))  in  five  unknowns  (q ,  [0+],  [N0+],  [N^],  and  [02]).  Rewrite 
Equations  (9)  through  (12)  for  [X+][e]  and  add,  followed  by  use  of 


Equation  (5) : 

[0+][e]  = 

(Yxq  - 

$n[o+]  }/«i 

[N0+][e]  = 

(Y2q  + 

62i[°  3  +  S23 

[N+][e]  = 

(Y3q 

'  B33 

[0+][e]  = 

^Y4q  + 

e41[o+] 

-  ^44t02]}/a4 


with 


o2 

=  A'q  +  B'[0+]  +  C'[N2] 

+  d'[o2] 

(13) 

A' 

“  +  Y2/a2  +  y3^c‘  3 

+  Y4M4 

(14a) 

B' 

=  -81l/a1  +  B21/a2  +  64]_/a4  =  S21| 

(a2  ’ 

+  641(^4  "  ax) 

(14b) 

C' 

=  ®23//°t2  ”  ®33^a3 

=  g23( 

<l_  _ 

,a2 

4) 

(14c) 
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D' 


624/ot2'  344/a4 


Solve  Equations  (11)  and  (12)  for  [N^]  and  [0^]  and  put  into  Equation 
(13). 


L^]  Y 3q /  ( B33  c]  J 

[O^]  =  <Y4q  +  eA1CO+]}/{044  +  a4[e]} 


(15) 

(16) 


[e]2  =  A'q  +  B"[0+]  +  C'Y2<q/{033  +  a^Le]} 

+  D " { Y  4q  +  641[0+]}/(644  +  a4[e]} 

=  (A'  +  0^3/(633  +  a^Le]}  +  D'y4/(B44  +  a4[e]})q 

+  (B '  +  D'641/{B44  +  a4[e]})  [0+]  .  (17) 

Eliminate  [0+]  from  Equation  (17)  by  use  of  [0+]  from  Equation  (9): 


[0+]  =  Y^/iB^  +  a-^e]} 


(18) 


[e]2  =  Aq  +  B[0+] 

=  Aq  +  BYj.q/fB^  +  o^Ce]} 

=  (A  +  By  ®  1 1  +  a^[e^)9 


or 


A3DEN  =  $24  +  <*^[e] 

FACT A3  =  D'/ A3 DEN 

A  =  A'  +  C'y3/A2DEN  +  y4  FACTA3 
B  =  B'  +  $41  FACTA3  . 

In  Subroutine  IONOSU  we  use  Equations  (19),  (18),  (22),  (15), 
and  (16)  to  compute  q,  [0+],  [N0+],  [N^] ,  and  [0^]  after  prescribing 
analytic  fits  to  nominal  profiles  of  E-  and  F-region  electron  density 
[Ri-73,  Figure  1]  and  electron  temperature  [Ev-73], 

The  prescribed  electron-density  profiles  in  the  E-  and  F- 
region  for  noon  and  midnight  conditions  are  shown  in  Figures  5-la  and 
5-lb.  The  fit  functions  used  to  obtain  these  profiles  are  described 
in  Table  5-3. 

The  prescribed  electron  temperature  profile  and  the  heavy- 
particle  temperature  profile  in  the  E-  and  F-region  for  noon  and  mid¬ 
night  conditions  are  shown  in  Figure  5-2.  The  fit  function  used  to 
obtain  the  electron  temperature  profile  is  described  in  Table  5-4. 

For  approximately  mean  solar-flux  conditions,  SBAR  t  S 
^  149  x  10" W  m~2  Hz-^,  profiles  of  q  are  shown  for  noon  and  mid¬ 
night  conditions  in  Figure  5-3  and  the  corresponding  values  of  [0+] , 
[N0+],  [N*],  and  [0+]  are  shown  in  Figures  5- la  and  5- lb. 

5-3  D-REGION  IONOSPHERIC  PROPERTIES 

The  D-region  chemistry  requires  the  following  quantity: 

q,  the  effective  total  ion-production  rate  that 
adequately  reproduces  the  ambient  ionosnhere 
when  used  with  the  chemistry  model. 

The  modeling  of  q  in  the  D-region  (and  lower)  is  offered  with 
reservations;  it  may  need  to  be  improved  if  experience  shows  that  this 
topic  is  more  important  than  it  is  presently  assumed  to  be  for  radar. 
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Figure  5-la.  E-  and  F-region  ionospheric  charged- spec ies  densities  for  noon  conditions 
The  electron  density  profile  is  prescribed  to  be  independent  of  solar-flu 
conditions.  The  atomic-  (0+)  and  molecular-ion  (N0+,  N't,  ot)  densities  a 
I0N0SU- computed  steady-jjtate  values  for  approximately  average  so]ar-flux 
conditions  (S  v  149^  10“^-^  W  m- Hz-1). 


mm 


1 
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Table  5-3.  Fit  functions  for  E-  and  F-region 
electron  density  profiles.8 


Altitude  Range, 

km  Description 


Day 

90  -  100  Exponential,  determined  by  data-point  value 

(EBOTD)  at  100-km  altitude  (HEBOTD)  and  scale 
height  EDDSCH 

100  -  300  Parabola,  determined  by  data-point  values  EBOTD 

and  EF2MXD  at  altitudes  HEBOTD  and  HF2MXD  and 
vertical  slope  at  altitude  HF2MXD 


>300  Exponential,  determined  by  data-point  value 

(EF2MXD)  at  300-km  altitude  (HF2MXD)  and  scale 
height  F2DSCH 


Niaht; 


90  -  100  Exponential,  determined  by  data-point  value 

(EBOTN)  at  100-km  altitude  (HEBOTN)  and  scale 
height  EDNSCH 

100  -  360  Sinusoid,  determined  by  data-point  values  EBOTN 

and  EF2MXN  at  altitudes  HEBOTN  and  HF2MXN  and 
vertical  slope  at  the  same  altitudes 


>360 


Exponential,  determined  by  data-point  value 
(EF2MXN)  at  360-km  altitude  (HF2MXN)  and  scale 
height  F2NSCH 


Table  5-4.  Fit  function  for  electron  temperature 
profile . 


Altitude 

km 

Range , 

Description 

<120 

Same  as  heavy-particle  temperature 

>120 

The  difference  between  the  electron  temperature 
(Tx)  and  the  gas  temperature  (T)  is  prescribed 
to  be  zero  at  120-km  altitude  and  500°K  at  200- 
km  altitude.  The  parabola 

Tx  -  T  =  5 00 1  (ZH  -  120)/80]^ 

is  then  used. 

Night 

>0 

Same  as  heavy-particle  temperature 
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For  the  D  region,  q  is  determined  by  specifying  data  points 
at  30-  and  60-km  altitude  and  by  requiring  the  fit  function  to  be 
continuous  with  the  value  of  q  derived  from  the  E-  and  F-region  model 
at  90-km  altitude.  The  fit  function  is  extrapolated  below  30-km 
altitude  for  modeling  convenience  and  not  on  a  physical  basis. 

The  data  adopted  are  based  on  the  calculations  of  Webber 
[We-62]  for  the  ion-production  rate  due  to  galactic  cosmic  rays. 

Webber  [We-62,  Figure  2]  presents  results  in  the  altitude  range  from 
30  to  90  km  for  two  geomagnetic  latitudes  (50°  and  70°)  and  for  sun¬ 
spot-minimum  and  sunspot-maximum  conditions.  For  the  geomagnetic 
latitude  of  30°,  Webber  [We-62]  finds  q  =  0.04  and  q  .  =  0.08  at 

60-km  altitude  and  q  =2.1  and  q  .  =  4.5  at  30-km  altitude.  We 

adopt  solar-cycle  mean  values  of  0.06  and  3.3  at  60-  and  30-km 
altitude,  respectively.  The  interested  reader  may  also  wish  to  con¬ 
sult  Ra-72  (Figure  2-3)  and  Po-73a  (Figures  2  and  3). 

The  profiles  of  q  in  the  D  and  adjacent  regions  for  noon  and 
midnight  conditions  are  shown  in  Figure  5-4.  The  fit  functions  used 
to  obtain  these  profiles  are  described  in  Table  5-5. 


Table  5-5.  Fit  functions  for  effective  ion-production 
rate  in  D  and  lower  regions. 


Altitude  Range, 

km  Description 


Day 

Exponential,  determined  by  data-point  values  at 
30-  and  60-km  altitude 

Exponential,  determined  by  data-point  values  at 
60-km  altitude  and  daytime  value  of  q  from  E-  and 
F-region  model  at  90-km  altitude 

Night 


0-60 
60  -  90 


0-60  Same  as  daytime 

60  -  90  Exponential,  determined  by  data-point  value  at  60- 

altitude  and  nighttime  value  of  q  from  E-  and  F- 
region  model  at  90-km  altitude 
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SECTION  6 


PROGRAM  DRVATM,  LISTING  OF  COMPUTER 
PROGRAM,  AND  SAMPLE  PROBLEM  RESULTS 

A  driver  routine  (Program  DRVATM)  is  provided  to  exercise 
the  ATMOSU,  SPCMIN,  IONOSU,  and  associated  routines.  The  required 
input  consists  of  the  year,  month,  day,  zone  time,  geographic  colati¬ 
tude  and  longitude  of  the  point  of  interest,  three  digital-flags 
relating  to  optional  treatment  of  water  vapor  and  temperature  profiles, 
a  set  of  test  altitudes,  and  the  number  of  such  altitudes.  Input 
quantities  are  more  specifically  described  in  Table  6-1.  Program 
DRVATM,  after  reading  and  writing  the  input,  first  initializes  the 
ATMOSU  routine  by  the  call  ATMOSU  (1,120.).  The  water  vapor  routine 
(WVOPT)  is  then  initialized  if  WVFLAG  ^  0.0.  DRVATM  next  loops  over 
the  test-altitude  array,  exercises  the  ATMOSU,  SPCMIN,  IONOSU,  and 
H20SVP  routines  for  each  altitudj,  and  prints  the  resultant  atmos¬ 
pheric  and  ionospheric  property  values. 

A  listing  of  the  driver,  ATMOSU,  SPCMIN,  IONOSU,  their 
associated  subroutines,  and  outputs  from  two  sample  problems  are  pro¬ 
vided  . 

The  quantities  in  the  output  block  at  each  altitude  are 
labeled  in  the  headings.  The  last  four  entries  (E,  0+,  M+,  and  N+) 
in  row-two  of  the  output  block  at  each  altitude  (^90  km)  are  computed 
by  Subroutine  CHEMQ  and  are  included  for  comparison  with  the  quantities 
E,  0+,  and  N0+  in  row-1  and  N2+  and  02+  in  row-4.  Subroutine  CHEMQ, 
prepared  by  Knapp  and  Tordano  (see  Volume  11)  for  use  with  the  NRL 
Simple-Chemistry  module  developed  for  ROSCOE-Radar ,  computes  steady- 
state  ionization  for  the  E-  and  F-region;  it  is  not  a  part  of  the 
operational  atmospheric  and  ionospheric  module. 
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Table  6-1.  Input  quantities  to  Program  DRVATM. 


NALTS 
ALTS (I) 
IYRS 

IMONS 

IDAYS 

ZT 

GCO 

GLO 

WVFLAG 

METHOD 


TP FLAG 


Number  of  test  altitude  values 
Test  altitude  values  (km) 

Number  of  the  year  in  the  1900's  at  east  longitude  GLO 
(e.g.,  1974  becomes  74) 

Number  of  the  month  at  east  longitude  GLO  (e.g.,  February 
becomes  2) 

Day  of  the  month  at  east  longitude  GLO 

Zone  time  for  the  15-degree  longitude  interval  containing 
east  longitude  GLO 

Geographic  colatitude  of  grid  origin  or  whatever  reference 
point  is  desired  (degrees) 

Geographic  east  longitude  of  grid  origin  or  whatever 
reference  point  is  desired  (degrees) 

Flag  for  optional  treatment  of  water  vapor 

=  0.0,  normal  treatment 
f  0.0,  optional  treatment 

Flag  indicating  one  of  four  options  for  treatment  of  water 
vapor 

=  1  data  values  in  parts  per  million  by  mass  (ppmm) 

=  2  data  values  in  absolute  humidity  (g/trP) 

=  3  data  values  in  relative  humidity  (percent;  10 

percent  is  input  as  10.,  not  0.10) 

=  4  data  values  in  dew-point  temperature  (°K) 

Flag  for  optional  treatment  of  temperature  profile 

=  0.0,  normal  treatment 
/  0.0,  optional  treatment 

TPFLAG  is  transferred  to  Subroutine  TEMPZH  through  ZHTEMP 
Common.  A  nonzero  value  of  TPFLAG  allows  Subroutine 
TEMPZH  to  read  the  user-specified  profile  at  altitudes 
ZZ  =  0.0(4.0)120.0  km. 
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PROGRAM  DRV  ATM  (  INPU  T,  0U  TPUT  ,T  APE5  *INPU  T,  TAPe  b- J  J  r  HU  T> 

DRIVER 

l 

DR  IV  Erf 

J 

DM  I VEk 

4 

THIS  ROUTINE  IS 

PROVIDED  TO  DRIVE  ENO  TEST  ETMOSU  EM 3  THE 

DRIVER 

mATEJ  ROUTINES  MHICH  COMPUTE  THE  PROPERTIES  aP  THE 

DkIVeR 

0 

JNDISTURBED  ATMOSPHERE  END  IONOSPHERE. 

Driver 

7 

DRIVER 

8 

DRIVtH 

9 

INPUT  PARAMETERS 

DRIVER 

10 

MELTS  - 

NUN1E2  OP  TEST-ELT1TUDE  VALUES 

driver 

11 

ALTS(I)  - 

TEST-ALTITUDE  value s,  km 

DKIVeR 

12 

lifts  - 

NUM3ER  UP  TIE  VEER  IV  THE  1920  S  AT  EAST 

DRIVER 

1  i 

LONGITUDE  CLO  it. I.,  1974  BECOMES  74) 

driver 

14 

IRONS  •• 

MU HU  EH  UP  THE  MONTH  AT  EAST  LONGITUDE  CLO 

driver 

IS 

(E.C.,  PEbRUAR  V  BECOMES  2) 

DRIVER 

lb 

ID  if  S  - 

OAV  OP  THt  40VTH  AT  EAST  LONGITUDE  GLO 

DkIVeR 

17 

IT  - 

driver 

18 

CUIT  AIMING  tAST  LONGITUDE  CLO 

driver 

1  9 

cco  - 

GEOGRAPHIC  COLAIITUDE  UP  CRD  URIC1N  OH  MMATKVeH 

DRIVER 

20 

REPEHENCE  PJ1VT  IS  DESIRED  DECREES) 

driver 

21 

CLO  - 

CEOGHEPHIC  EAST  LONGITUDE  UP  GRID  UHIGIN  OH 

DRIVER 

22 

HHAf EVER  REPERENC E  POINT  IS  DeSIRED  (DECREES) 

DRIVER 

23 

HVPLAG  - 

FLAG  FOR  UPTIJMAL  TKEETHLRT  OF  HATER  VAPOR. 

Driver 

24 

.EQ.  0.0  NORMAL  TREATMENT 

OrIVER 

25 

•ME.  0.0  OPTIONAL  TREATMENT 

DRIVER 

26 

METHOD  - 

FLAG  INDICATING  ONE  OP  POUR  OPTIONS,  FOR 

DR  IV  ER 

27 

OPTIONAL  TREATMENT  OP  HATER  VAPOR. 

driver 

28 

=1  DATA  VALUES  IN  PARTS  PER  MILLION  BV  HEIGHT 

OR  IV  ER 

29 

=2  DATA  VALUES  IN  ABSOLUTE  HUMIDITY, 

DRIVER 

30 

GRAMS/ METERS**] 

driver 

31 

=3  DATA  VALUES  IN  RELATIVE  HJMIDITV,  PERCENT 

DRIVeR 

32 

(10  PERCENT  IS  INPUT  AS  10.  NuT  0.10) 

driver 

JJ 

s4  DATA  VALUES  IN  OEh-PQINT  TEMPERATURE,  DEC  A 

DRIVER 

34 

TPPLAC  - 

PLAC  FOR  3PT13NAL  TREATMENT  )F  TEMPERATURE 

driver 

3S 

PROFILE. 

driver 

36 

.eS.  0.0  NORMAL  TREATMENT 

driver 

37 

.ME.  0.0  OP  T I  ON  A.  TREATMENT 

Driver 

38 

TPPLAC  IS  TRANSFERRED  TO  SUBROUTINE  TLMPIH 

driver 

39 

THROUGH  COMMON  ZHTEMP.  A  NONZERO  VALUE  OP  TPPLAC 

driver 

40 

ALLORS  SUBROUTINE  TEMPZH  TO  READ  THE  USER- 

driver 

41 

-SPECIFIED  PROFILE  AT  ALTITUDES  ZZ-0. 0( 4. 0) 1 20.  KM 

driver 

42 

CC 

driver 

4  3 

C0NM3N/ATMOUP/  HL,S9  ED  ,  l  D URN,  P  P,  R3  0,  TT,  SMI  (  30  )  ,  HRHJ,  T EH  SeQ 

KUMM02 

2 

COMMON/IQMOUP/ 

EPK,EP0P,EPN0P,IPV2P,EP02P,T1,RDEP 

KOMM04 

2 

C0NM3N  /SPECS/ 

CN2,C02,CNO,CN4S,CN20,CU,CNP,C0P,CEME,TV,TE,TG 

KUMNOb 

2 

C0NM3I/T  INE/  1 YR  S,  MJI S,  I UAVS,  ZT,PL AT,PLON,U  t  ,CAT,  P  IK,  PST,  RHQSKM 

AOMM07 

2 

•  ,CHi 

AUMM07 

3 

CONNIi/VPC/  HVPLAG, METHOD, H23120 

KUHM09 

2 

CD  MM3M/ZHTEMP/ 

NZHT ,ZHTZ(3), EHT (31), TZH 1(3), TZHI31), TPPLAC 

kommid 

2 

CC 

DRIVER 

50 

31NEISION  ALTS1200) 

Dr  1 V  ER 

51 

JET*  PI  /  3.141592653590  / 

driver 

52 

driver 

53 

>102  *  P  1/2. 

driver 

54 

REOOE6  >  PI/180. 

driver 

55 

DRIVER 

56 

•  •  READ  IN  TEST 

ALTITUDES 

DRIVER 

57 
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c 


c 

DRIVER 

54 

2CA015,1001)NALTS 

DRIVE/ 

5) 

1001 

pobmatiisi 

DRIVER 

6  0 

BEAD! 5, I 002) (ALTS! I), I *1,  HALTS) 

DRIVER 

61 

1302 

rouiium.i) 

DR  IV  ER 

62 

C 

Driver 

6  3 

c  •  • 

READ  IN  YEAR,NONTH,3AV,2UNE  TIME/  CEOCRAPHIC  CULAT1TUUE  ANO 

DRIVER 

64 

c  •  • 

.OMGiroos  j r  grid  origin. 

DRIVER 

6  3 

c 

driver 

63 

1010 

1EAD(  5f  104  3)  IVRS,INJNS,  I D A VS ,ZT, CCO, CLO, NVP LAG, ReTHUO, TPPLAC 

DRIVER 

67 

1003 

POkMAT  (  315,4E10.4,I5,E10.4) 

DRIVER 

6d 

c 

CONVERT  CLU  TJ  THE  CORRESPONDING  POSITIVE  UUANTITV,  IP  CLU 

DRIVER 

69 

c 

IS  BEAD  IN  AS  A  NEGATIVE  UUANT3TV. 

DRIVER 

70 

ire  ;l3  .lt.  o.o  )  clo  *  clo  ♦  3t»o. 

DRIVER 

71 

c 

A  NEGATIVE  VALUE  JP  ITBS  IS  USED  TO  TEttMt  NATE  EXAMPLES. 

DRIVER 

72 

IP(  IVBS.LE.O  )  CAlL  EXIT 

DRIVE/ 

73 

c 

DRIVER 

74 

c  » 

•  PRINT  OUT  INPUT  VALUcS 

DRIVER 

75 

c 

driver 

7o 

VRITEl  S,  2001  )NALTS 

drive* 

77 

2001 

»0RMAT(IH1,//,20H  TEST  VALUES  BEAD  IN,//,8H  NALTS  *,I5,//,10I, 

driver 

7B 

■  3N  I  ,  2 1,  1 1 H  ALfS(  I  ),KN,/  ) 

DRIVER 

70 

VR1TE16,  2002)11/ ALTS!  1 1/1  =  1 /NALTS) 

DRIVER 

BO 

2002 

f  DIM  AT  (  6(  2I/18/P19.  2)  ) 

driver 

B  1 

VB1  TE(  4/  200 4)  1 VRS,  IRON  S,  ID  AY  S, ZT  ,GCO,GLQ 

DRIVER 

82 

2004 

PORNAT  (///BN  I VBS  =15,10H  IMONS  =I5,10H  IDAVS  *15/ 

Driver 

NJ 

•  BM  It  -El 2.4, 14V  VBS  SCO  *E12.4,14H  DEC  CL 3  *E12.4, 

driver 

84 

*  4H  DNS) 

driver 

B5 

NRITEIS, 20071  MffLAG,M£THU0,f Pf LAC 

driver 

H6 

200) 

POBMAT  (8m  8 VPLAC* ,P  8. 2/10X/BH  METHOD*/ 15/ 101 ,BM  TPPLAC*,P B. 2) 

DRIVER 

87 

C 

CONVERT  CCO  AND  CLO  P ROM  DECREES  TO  RADIANS. 

ORlVtR 

88 

CCO  =  CCO»RADDEC 

DRIVER 

89 
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SUBROUTINE  ATNQSU(  JJ,ZM) 

atnjsu  computes  trie,  properties  up  the  uxiisrjRBtD  atmosphere, 
GIVEN  THE  ALTITUDE  ZH,  AFTER  ASSOCIATED  SUoROUTINtS  COMPUTE 
THE  LOCAL  APPARENT  TINE  Hi.,  SOLAR  FLUX  SOAR,  AND  DAY-OK-MIGMT 
PARAMETER  IUOHN. 

AT43SU  IS  REVISION  13  (01/07/79)  BV  0.  A.  HAMLIN  AND  M.  R. 

SCHOONOVER  OF  ATMOS  OlVeLOPED  BY  K.  N.  L  J  MEN  (SEE,  AN  AMBIENT 
ATMOSPHERE  MODEL  for  rUSCJE,  P.  IB7,  VOL.  5  OF  PROC.  ONA  1973 
ATMOSPHERIC  EFFECTS  SYMPOSIUM,  DM  A  0I01-J,  S  JUmE  1973.) 
REVISION  02  (06/97/74)  PROVIDES 

1.  IN  HIGH-ALTITUDE  MODEL,  for  USE  UF  GAP (120.)  INSTEAD  OF 
CAP  to. )  =  G l  IN  COMPUTING  SAM  AND  ZZ. 

2.  density  scale  height  for  both  lom-  and  high-altituoe 

MODELS,  M1TH  AN  AD  HOC  PARABOLIC  TRANSITION  FROM  110-  TO 
120-fcM  ALTITUDE  TO  PROVIDE  A  CONTINUOUS  DENSITY  SCALE 
HEIGHT  ACROSS  THE  BOUNDARY  BiTNEEN  THE  TMJ  MODELS. 

3.  ALTERED  FORMULA  FOR  0  DENSITY  OH  FIRST  CALL  AND  AT  LOk 
ALTITUOE  SO  AS  TO  USE  SF-FUNCT10N  3 IrECTLY. 

4.  COMMENT  CARDS. 

REVISION  03  (19/25/74)  PROVIDES 

5.  PROVISION  FOR  DAY  OR  MGHT  VALUES  OF  ATOMIC  OXYGEN 
(OBTAINED  FROM  THE  MINOR  SPECIES  SUBROUTINE  SPCNIN) 

FOR  ALTITUDES  RELOH  120  AM. 

6.  AUTOMATED  PROCEDURE  FOR  EVALUATING  CONSTANTS  IN  DENSITY 
SCALE-HEIGHT  FORMULA  USED  IN  THE  110-  TO  120-XN 
TRANSITION  REGION. 

i.  procedure  fur  letting  solar  flux  sbar,  an  input  to 

ATMOSU,  BE  DETERMINED  BY  THE  A0X1L1ANY  ROUTINE  SOuClC. 
i.  PROCEDURE  FOR  LETTING  THE  LOCAL  (APPARENT)  TIME  HL, 

AN  INPUT  TO  ATMOSU,  Be.  DETERMINED  9  Y  THE  AUXILIARY 
SUBROUTINE  SOLORU. 

V.  PROCEDURE  FOR  LETTING  THE  DAY  OR  NIGHT  PARAMETER  1DJRN 
BE  DETERMINED  BY  THE  AUXILIARY  SUBROUTINc.  solzen. 
REVISION  04  ( 12/0B/74)  PROVIDES 

ID.  CARBON  DIOXIDE  AS  THE  SIXTH  SPECIES  IN  »TNUsU,  mITH 

profile  specified  er  b.  f.  myers  on  12/07/74. 

11.  EVALUATION  OF  DEPARTURE  FROM  HYORJS  TAT  I C  EQUILIBRIUM. 

12.  A  FLAG,  ZBFLAG,  To  INSURE  THAT  SUbRuUTlNES  loNJSU  AND 
SPCNIN  ARE  CALLEO  AT  THE  SANE  ALTITUDE  AT  MH1CH  ATMOSU 
NAS  LAST  CALLEO. 

13.  DAY  AND  NIGHT  PROFILES  OF  ATOMIC  UIYCtN  SPECIFIED  BY 
B.  F.  MYERS  04  11/09/74  AND  11/23/74,  RESPECTIVELY. 

14.  CORRECTED  PROCEDURE  FOR  EVALUATING  CONSTANTS  IN  DENSITY 
SCALE-HEIGHT  FORMULA  USED  IN  THE  110-  TO  120-KM 
TRANSITION  REGION. 

15.  CORRECTED  CONSTANT  IN  LOtf-ALTITUDE  FORMULA  FOR  DENSITY 
SCALE  HEIGHT. 

REVISION  05  (02/04/75)  PROVIDES 

16.  INTERFACE  N1TH  SPCNIN  NH1CH  NON  C04PUTES  DENSITIES  OF 
H20,  N,  NO,  N 02,  02l SI NG LET  DELTA  G ),  AND  03. 

17.  INTERFACE  NITH  IONOSU  NH ICH  NUN  CD4PUT&S  THE  EFFECTIVE 
I  ON  PRODUCTION  RATE  AT  ALL  ALTITUDES. 

REVISION  Ob  ( 04/ OB/ 75 )  PROVIDES 

11.  REVISED  NIGHT  PMOPI.E  0'  ATU41C  OXYGEN  SPECIFIED  BV 
B.r.  MYERS  ON  02/22/75  (MINOR  CHANGE  BELOM  60  KM). 

19.  REVISED  DAV  AND  NiCHT  PROFILES  UF  NITRIC  OXIDE 
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SPECIFIED  it  a.F.  MYERS  UN  04/05/75. 

23.  REVISED  DAY  4*0  NIGHT  PROFILES  3F  ATOMIC  NITROGEN 
SPECIFIED  BY  a.F.  MYERS  ON  04/ll/7>. 

REVISION  07  (04/24/75)  PROVIDES 

21.  REVISED  PROCEDURE  FIR  SPECIFYING  AND  USING  DATE  JF  f  He 
VERNAL  EQUINOX  (PER  R.  H.  LOREN  (02/2d/75>). 

REf I  SION  08  (OS/ 21/75)  PRUV1UES 

22.  REVISED  PROFILE  OF  RATER  VAPOR  SPECIFIED  RV  B.F.  NVERS 
ON  05/10/75. 

REVISION  09  (Ob/02/75)  PROVIDES 

23.  CORRECTED  FORMULA  IN  HIGH-ALTITUDE  MuOEL  FOR  EVALUATION 
OF  DEPARTURE  FROM  HYDROSTATIC  EuUl  „  I  UR  I  UN. 

REVISION  10  (05/02/77)  PROVIDES 

24.  REPLACEMENT  OF  PREDETERMINED  FIT  COEFFICIENTS  FjR  C/TM 
PROFILE  8V  THOSE  DERIVE)  DURING  TUS  INITIALIZATION 
PHASE  FROM  SPECIFYING  TEMPERATURE  PROFILES  AND  A 
MOLECULAR- HEIGHT  PROFILE. 

25.  USE  OF  0-  tJ  12U-KM  TEMPERATURE  PROFILE  FJR  ANY  LATITUDE 
AND  SEASON/  0BTAINE3  BY  LINEAR  INTERPOLATION  OF  A  Sr.T 

of  latitooe  and  Season  profiles  based  on  j.s.  standard 
ATMOSPHERE  SUPPLEMENTS,  1 966. 

26.  USE  OF  A  SPECIFIED  UNIVERSAL  PROFI.E  OF  THE  MULECULAK- 
HE1CHT  FUNCTION,  (MSTAR/M-1.)  s  SF  =  SFUAF,  INDEPENDENT 
OF  LATITUDE,  SEASON,  A  NO  DIURNAL  VARIATION.  (THE  HER  SF 
FUNCTION  IS  SPECIFIED  BY  THE  DD-CUEFF IC I eNT  ARRAY  FOR  AN 
1 1 TH-D EGREE  POLYNOMIAL.)  HONEVER,  NlCHTTlME  ATOMIC 
OAYGEN  PROFILE.  DIFFERS  FRUM  DAYTIME  PRUFILE  BeLJR  90  EM 
AND  IS  COMPUTED  FROM  A  SEPARATE  FIT  FUNCTION.  DAYTIME 
ATONIC  OXYGEN  PRUFILE  IS  COMPUTED  FROM  SPECIFICATION  OF 
TEMPERATURE  AND  MOLE CULAR-HeIGHT  PROFILE  INSTEAD  OF 
BEING  SPECIFIED  DIReCTLY  AND  EMTeReD  AS  DATA  IN 
SDBROUTINE  SPCM1N. 

27.  OPPORTUNITY  FOR  USER  TO  SPECIFY  HIS  TEMPERATURE  PROFILE 
OF  INTEREST  (AT  ALTITUOeS  l  -  0(4)120  XN)  IF  HE  DOES 
NUT  CUUQSE  TO  USE  THE  ONE  SELECTED  BY  THt  CUOt  AS  A 
FUNCTION  OF  LATITUDE  ANJ  SEASON. 

2B .  ELIMINATION  OF  A  PRESSURE-CORRECTION  FACTUM  EMPLOYE)  IN 
THE  ORIGINAL  MUOEL  TU  NATCH  CIRA-1V65  CONDITIONS  AT 
120-XM  ALTITUDE. 

2).  SEASON-DEPENDENT  COXDITIONS  AT  1 20- AM  ALTITUDE  (THE  BASE 
ALTITUDE  FOR  THE  H ISO- ALTITUDE  NODeL)  INSTEAD  OF 
CONSTANT  CONDITIONS. 

)».  INCREASE  OF  THE  DIMENSION  OF  THE  SYi  ARRAY  FROM  5  TO  00. 

REVISION  11  (03/01/78)  PROVIDES 

31.  INCLUSION  OF  N(2P)  IN  SUBROUTINE  SPCM1N. 

32.  REPLACEHEBT  OF  THE  GENERIC  MOLECULAR  ION  M*  IN 
SUBROUTINE  10NJSU  BY  THE  THREE  MOL} CU LAM  IONS  NJ»,  N2», 
AND  02*.  IONUUP  COM  MCN  IS  ACC  OKU  I V  GL Y  CHANCED. 

REVISION  12  (05/21/78)  PR0V10ES 

33.  DELETION  OF  THE  FIRST  THREE  VARI4R.ES  IN  THE  ARGUMENT 
LIST  IN  THE  CALL  TO  SUBROUTINE  JULIAN  SINCE  THESE 
VARIABLES  IRE  SUPPLIED  THROUGH  TIME  COMMON. 

34.  DELETION  JF  THE  UNUSED  ARRAV  BBil). 

REVISION  13  (01/07/79)  PROVIDES 

05.  REVISED  FORMAT  8001. 

REVISION  14  (06/15/79)  PROVIDES 

16.  CORRECTED  SPECIFICATION  OF  MOLECULAR  HEIGHT  PROFILE 
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TIME  COMMON 

ATMOSU 

141 

c 

HUUSKM 

ATMUSU 

142 

c 

ZHCHEI  COMMON 

ATMUSU 

14  0 

c 

zmpi.a:,  spiflc 

ATHJSU 

144 

c 

ATMUSU 

146 

COMMON/ ALT  JON/  ALTKK  47  ),  UN  IT  E(  1 H  ),  C()2  (  2S  >,  S  3ZOD 

NUNMOI 

2 

COMMON/ ATM OUP/  HL,S) AH , I OORN/PP, R4 0, TT , SHI ( J3  ),  lUHQ/PE HSEt) 

K0MM02 

2 

COMM JM/SOLARP/  SOLL AT, SOLLJN, SOLI RR( I 0 ) 

aummus 

2 

CONN  ON/ TIME/  lYRS,  I  MOMS,  lU  AT  S,  ZT/P  L  AT/PLON/Uf  ,U  AT  ,  P  VR,  FSI ,  R  HUsKM 

KUHM07 

2 

•  /CHI 

K0MM07 

3 

CONNJM/ZMCHHX/  ZMPL  AS/SPI  PLC 

KUMM09 

2 

COMMON/ AHTENP/  NZMT ,4HTZ( 0)/ZHT(Ol),TZbZ( 0), TZHI 01),TPPLAC 

KOMMIO 

2 

c 

ATMUSU 

162 

c 

(AHI  ABLES  IN  ATM  OUP 

ATMUSU 

16) 

c 

HL  =  LOCAL  T I Me ,  HHS 

ATMUSU 

164 

c 

Sd  AM  s  AfEH.  10.7-CM  SuLAR  PL'IA,  l.t-22  a/(M**2  HZ) 

ATMUSU 

1 6  6 

c 

IOJHN  x  l  NUEA  POR  OAT  OH  MIGHT.  POP  )  BE.W  123  KM,  USE 

ATM  JStl 

166 

c 

OATTIME  PROFILE  IF  (  1  OJrN  .„E.  3  )  ANU  NIGHTTIMc. 

ATMUSU 

16  / 

c 

pnofile  ik  iujrm.lt. 0) 

AT  HoSU 

168 

c 

PP  =  PRESSURE,  DVReS/CM**2 

ATm  IjU 

152 

c 

RHO  3  DENS  1  TV/  G/CM* • j 

ATM  1  all 

IbO 

c 

TT  3  TeMPEHATURE,  DECMc.ES  Kc.LVIN 

AT  Mt  IjU 

161 

c 

SNK 1 )  3  Hi,  |/CM**U  (FROM  AfMUSJ) 

•*Mt  aU 

162 

c 

S  MI ( 2  )  3  02/  l /CM**)  (FRJM  ATMUSU) 

AT"  iS'l 

16) 

c 

sni(O)  3  o,  i /c m* •  3  (Prom  atmiisu) 

ATM. is  1 

164 

c 

SNI ( 4 )  3  AR,  1 /CM**)  (FROM  ATMuSU) 

ATM  ia'1 

los 

c 

SNK6)  3  HE,  1 / CM  •  • i  (FROM  ATHJSU) 

ATM  ; ji| 

166 

c 

SMI  (6)  3  CU2,  1/CM**1  (FRJM  ATMUSU) 

ATm.isU 

to/ 

c 

S Mi ( 7 )  3  M,  1/CM**)  (FROM  SPCMIM) 

A  f  M.laU 

16m 

c 

SNl(B)  3  Mu,  1 / C M • • J  (FRJM  SPCMIN) 

ATM  la’J 

lot 

c 

S  Ml  (  7  )  3  E,  l/C*t**J  (FRJM  lll.VJS'i) 

ATM  la" 

170 

c 

SNl(lO)  3  o*/  1/CM**)  (FRJM  IIIMUSU) 

AT  M.laU 

17  1 

121 


UUUUUUUUOUUUUUUUUUUUUU  UUUUUOUO  uuuuubuu  UUUUU  UUUU 


Sll(ll) 

s 

MU* ,  1 /CM** J  (P  MUM  IUNUSU) 

AT«u,0 

172 

S  M  1  (  1  2  ) 

= 

T* ,  DEC  a  (FBJM  lJNUSU) 

ATMojU 

17  3 

SaI(13) 

s 

02(191),  l/CN*»J 

(mom  spcai a> 

aTm  is  i 

1 7  ( 

SH  ((  t  4 > 

= 

03,  1  /CM*  *3 

(  P  HUM  SPCMIN) 

ATM  isj 

17b 

SNI(IS) 

x 

NJ2,  1/CM*  *3 

(PMoM  SPCMIN) 

ATM jsU 

17t> 

SN  1(1 6 ) 

s 

H20,  1 /CM*  *3 

(FMOM  SPCMIN) 

ATMOSJ 

177 

SNl( 17) 

X 

M,  1 / CM*  *3 

(PMOM  SPCMIN) 

ATm.JSU 

178 

SNU16) 

X 

OH,  1KM"J 

(p'Miia  SPCaiN) 

ATMOjU 

l7» 

SDK  19) 

= 

hu2,  i/:a**3 

(FROM  SPCMIN) 

atmjso 

160 

Sa l( 20 ) 

s 

cu,  i/:a**3 

(  F  A  0  N  SPCMIN) 

ATM  bll 

m 

S  M  I  <  21) 

x 

m2d,  i/ca**3 

(FMOM  SPCMIN) 

ATmIiSH 

182 

sai(22) 

s 

CM4,  l/CM*  *3 

(FMOM  SPCMIN) 

ATMoSU 

18  J 

Sail  23) 

s 

M(4S),  i/ca*»s 

(FMOM  SPCMIN) 

ATMOS') 

184 

sai( 2«) 

s 

M( 23),  1 /CM*  *3 

(Faun  SPCmIN) 

ATmiISO 

1  H  3 

Sai(23) 

X 

MEL.  HUM1J1TV, 

(FMOM  SPCMIN) 

ATMOSU 

I  Ho 

SMU26) 

= 

□  (10),  1 /CM*  *3 

(FMOM  SPCMIN) 

ATMJjU 

187 

S  M  1  i  2  7  ) 

* 

M(2P),  l/ca**3 

(FMOM  SPCMin) 

AtMOS'l 

183 

sail  28) 

x 

M2*,  l/CM*  *3 

(PROM  IUNOSU) 

ATM  ISJ 

18) 

S8 1( 29  ) 

= 

02*,  l /CM*  *3 

(FMOM  10803  (J) 

aTn.iSU 

19.7 

HRliU 

X 

OENS 1TV  SCiLE  HE IS 

HT,  AM 

ATMOSU 

191 

rtHsta 

X 

FMICriOa*L  C.MMUM  (N  HVOMJSTAflC  EUUILIHMIUN. 

ATMOjJ 

192 

ATMOjU 

193 

iimeisijn  a(6). 

R(b),C(b),S(S),AA(12),DD(lJ) 

ATMOjU 

194 

Jiaeasna  saizi6),  sai(6),  a*p(6) 

ATMj-.I1 

I9S 

uatasna  0(20, 

2l),IC(7),ZinN(b>, 

ONZ  1(5) 

ATNOSJ 

Iso 

MMEVSIUM  Z1M1C(S),Z1CJ2(5),CU2Z1 (b) 

ATMoSJ 

197 

iiaeasua  foavi31) 

ATMOSU 

1  9d 

ATMOSU 

199 

definitions 

ok  o*r*  aoiamiEs 

ATMujII 

200 

Micas 

= 

SEA- LEVEL  NeAV  MU. 

ECJLAR  NEISHT,  C/MJLE 

ATMUsO 

201 

PZ 

X 

SEE-LEVEL  PMESSUME 

,  BVNES/CM**2 

ATMOS') 

20  2 

MICA 

X 

*VOC*DMU  NUM8EM,  P ANT  I CLES/M J Le 

ATmiiSJ 

20) 

UK 

X 

UN  [  V  EM  S*L  CAS  CONSTANT,  EMC/(  MOLE 

DEC-*) 

ATMOSU 

20  4 

(SET  1M  SUBMOJTl  NE 

,  MMzSK*B13A) 

ATMOSU 

20S 

ATMOSU 

206 

JATA  SIGNS, PZ,B1CA  /  28.  98,  1.  01  J25E*06, 6. 022 169e  *2i  / 

ATMOjU 

207 

ATMOSJ 

20  3 

SA 

X 

BOLTZMANN  C3MSTANT 

,  &MG/(DEC-K) 

ATMOSU 

209 

nuec 

- 

DECREE  UP  POLVNUMIAL  TO  BE  PITTED 

POM  THE 

ATMOSJ 

210 

DAVT14E  PhOFILE  UP 

SP. 

ATMUS'J 

211 

ATMOSU 

212 

cadtiun  — 

MO  EC  MUST  MOT  El  CEED  12  KlfHjUt 

MA* INC 

ATMOSJ 

21  J 

AP PM OPM 1  AT E  CHANGES  IN  PROGRAM. 

ATMujU 

21  4 

ATmOSU 

21  s 

>APA  »I,SA  / 

J# 

141  J  )263Jb90,  1  .  JB0622E -1  6  /,  NDE3 

/  11  / 

AT"  JSII 

?lb 

ATM./ ,U 

217 

cz 

= 

SeA-LEVeL  CM  A<  ITAT  IDMAL  ACCE.t.hAr  l  jk,  CM/S2;**2 

ATMO’.U 

21  9 

HE 

X 

NeAV  M  AO  1  IIS  J.»  EAMTH,  AN  (A.LeM, 

ASTti  JPHVSiCAL 

ATM  1 VI 

21  ) 

mJA  NT l T  I  r.S,  197  3) 

ATM  I  .  1 

2  2  U 

AT  M.  1  VI 

.21 

jata  cz,  me  / 

'  980.621,  b.imjtoj  / 

ATMOSU 

22  2 

ATmij) 

2?  1 

is 

X 

MUMS  EM  OP  MAJOR  SPECIES 

ATmojU 

224 

sail i) 

- 

mass  JP  M2,  U2 ,  □, 

AH,  He,  AMO  C 0  2 

,  UfcAlS 

ATMosJ 

22S 

AT**  IS  ' 

2  2o 

nr*  is,  (said  ),Mi,b)  /  h,  4.0M7E-73,  b.  nv,t 

"  ^  a* «  f) ')  b  /  •  .M  p 

ATm  IS  1 

2?  1 

t>  •  b  J  Jb  c.- 2  3/  o .  t>4 1>  4  e. 

-^4,  7,  JJdO.-.- J  1/ 

ATM.jjJ 

d )  (J 

A 


cc: 

c  • 
c  • 
cc: 


cc: 

c  • 

ccc 


cc: 

c  • 
c  • 
ccc 


cc: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cc: 

cc: 

ccc 


4LP(l)  -  T1IE8NAL  DIFFUSION  COEFFICIENT 

JATA  (ALP(  l)/l:l,i)  /  4*0.0,  -0.40,  0.0  / 

3F4  YALJES  0  6/04/77  FJk  FDA/ 

Utl  (FDAY(i),l=l,3l)  /  1.14E-17, 1.47E-16,6.96E-l6,3.86E-16, 

3.47E-14,  2.11  t-13,2.6ot-12,  2.  16E-11, 
l.b9fc-10,1.12C-09,b.90o-0  9,  2. 6 1  t-0N,9.  1 4E-0 8 , 2 . 76 fc-U 7 , 

I. 2 4E-07, 1.896-06,3.836-0  6, 6. J JK-0o,l.  19E-06,  3.  20 1- 06, 
3.62E-OS»2.44S-04*7.11a-04»  2.  38E-03,  1.  0sE-0  2,  2.  40 1- 0  2, 
3.666-02,  4.78t-02,6.b6E-0  2,  6. 82 t-02,7. 66 E-0 2  / 

•  *  481 TUNtT 1C  STATEMENT  F0NCT13NS  TO  CALCULATE 

•  •  C/TN,  INTECKAL  OF  C/TM,  4«D  C. 

JOTMAFl  44  >  *  IKUUdl  AA(12)*A4  *  AA(U))*A4  ♦  AA(10))*AJ 

•  ♦  44(9)1*40  ♦  44(8)1*44  *  A4(7))*A4  ♦  AA(b))*A* 

•  *  44(S) 1*40  ♦  AA( 4) )*  AU  ♦  44(3)1*44  ♦  44(2)1*44  »  44(1) 

:rMI4F(  44  1  *  ((({(((((((44(1  21/1  2. *44  *  44 (  1 1  ) /  1 1.  1  *4 4 

•  ♦  44(10)/13. )*4Q  ♦  44(91/9.1*44  ♦  44(d)/8.)*44 

•  *  44(71/7. )  *44  ♦  44(61/6.  1*44  ♦  AA(,)/6.)*A4 

•  *  44(41/4.1*44  ♦  44(31/3.1*44  ♦  44(21/2.1*44  »  44(1)1*44 

JAF(  89  1  =  GZ/(1.0»B4/8E)**2 

•  *  AN  1 TNMETI C  STATEMENT  rUNCTIJM  OS  ED  TO  CALCULATE  M/MSTAM  04V. 

Sr04F(  84  1  =  EXt>(  ((((((((((( 00  (13)  *U  4  ♦  D0(12))*J4  *  00(11)1*84 

•  ♦  00(10) )*8Q  »  0D(9))*B4  ♦  DD(B))*B4  ♦  D0(7))*84 

•  ♦  00(6)1*84  ♦  DO (6)1*84  ♦  0D(4))*UU  »  00(3)1*84 

•  *  00(2)1*84  •  DO ( 1  )  1 

•  *  6v  1 7  UMET 1 C  STATEMENT  FONCTIJM  USED  TO  CALCULATE  DENSITY  SC4LE 

•  •  BKIC8T  (  KH) . 

C4CZ4F(  44  1  -  (((((((((  44(121*11 .*44  »  44( 1 1 1 • 1 0. ) *44 

•  *  44(10)*9.  )  *  44  ♦  44(91*9. >*44  »  44(81*1. 1*44 

•  ♦  44(  7 1*6.  )*44  ♦  44(61*6. 1*44  ♦  44(61*4. )*4U 

•  »  44(  4)*3. )*44  ♦  44(31*2.1*44  »  4 8(2) 


ST4TEME  N  TS  100  T 
ITNJSU(1,120),  T 
SULA 8- FLUX -0 EPEN 
THE  T1HE-0EPEN0E 
TENPEBATUHE  0x40 
EI3SPNE8IC  TENPK 
6,  P.  437  (1971) 
TWIN  SI T l UN  FUNCT 
THE  LU8-  4N0  HC 
SDJSE4UENT  CALLS 
NHikEAFTKK  4  Cl* 
LcSS  TII4N  120  XN 

1N1T 1  ALl E ATI  UN 

:u  T J  (100,200),  JJ 


0  200-1  48 £  DONE  JUST  CINCt,  ON  4  C4C(.  T J 
J  Sc.T  UP  NEEDED  PABAMETtrfS  AND  TO  EVALUATE 
OENT  FUUH1EB  C  OtFF  I C I  tN  TS  UitO  IN  CONFUTING 
NT  YALUtS  O'  TAU,  THE  VAkIABLE  CUNTBULUNS  THt 
lc-NT  XT  TIE  LJNtM  HUUNUA2  V,  TIE,  THt 
8  A  T  U  8  E  (StE  J.  S.  N1S8ET,  8AJ1J  SCIENCE  YJL. 

),  AN1  THt  COEFFICIENTS  IN  THE  P4BA8JLIC 

mi  f  im  tie  Density  scale -hught  atr.tts 

8— AuTlTJOr.  NUOKLS. 

,  T.l  aTNUSUA  2,  ill),  GJ  Til  STATEMENT  200 
-ACTITUJE  MUOSL  IS  UStU  r  U8  ALTlTHUtS  l.H 
AND  A  h  IGH-  AL  T  l  TUI)  t  NUUEL  IS  USED  uTHENNIje. 


mT 8 JO J 
ATMUjII 
ATmu.U 
AT  Nu.jU 
ATMUSU 
ATmuSU 
ATMUSJ 
ATNjjII 
aTnusu 
ATMJSU 
ATNiijU 
ATMUSU 
ATbUSU 
ATMUSU 
ATNUSU 
ATMJStl 
AfN  1SU 
ATMOSU 
ATMUSU 
ATNUSU 
ATMUSU 
ATMOSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUaU 
ATMUSU 
ATMJsU 
ATNilSl 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATNU**U 
ATMUSU 
ATMUSU 
ATMUSU 
ATMUSU 
ATNUSU 
ATMIjJ 
ATM  I a'I 
ATMISU 
ATM, I  >H 
ATM  , EM 
ATMUSJ 
A  T  nuaU 
AT  N'lSU 
ATmuSU 
ATm  IS  J 
ATMI  jU 


22  t 

230 

231 

232 
2  J  3 
234 

236 
2  30 

237 

238 

239 

240 

241 
24  2 
24  3 
•:4  4 
246 
24  o 
24  7 
248 
24  9 
260 
761 
26  2 
26  3 
2s4 
266 
266 
261 
268 
269 
260 
261 
26  2 

26  3 
264 
266 
2bb 

267 

268 
269 
770 

271 

272 

27  ) 
274 
2  76 
27b 
77  1 
27s 
279 

28  0 
2b  I 
282 
24  I 
7b  4 
28  6 
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loo  rr  *  seme*  atmjsu 

:ci  =  i.  oeoS'bicns/rr  atmjsu 

CtLL  THt  5  AUIILIARV  uOUTINtS.  ATMUSJ 

call  zrrour  atmjsu 

CALL  JJL1AN(YRFJ/VEHJ/UAVJ)  ATMOSU 

CALL  S3LCYC ( DA  TJ  )  *T  itiSU 

:*LL  S3LUHa(YKFJ,VEJJ,DATJ,S0LLAT,SULL0N)  ATNLjU 

:*LL  SJbZENl  SULLAT/S  JLLON)  ATMJSU 

calculate  Fir  coefficients  oo(i)  used  tj  compute  sr.  atmusu 

:all  riTTE«(oznr,ZHr,roA»,a3ec,  l  ,  2  ,uo)  atmosu 

00  0  3)  =  0.0  ATMOSU 

c  caul  routine  to  get  seasonal  temperature  profile.  atmjsu 

CALL  TEMPZH  ATmOSU 

)Q  1)4  M  =1  ,iZHT  ATMOSU 

SF  2  SFO AF(  ZHT(N)  )  ATKOiU 

C  RESET  TZHi«>  TO  Be  THE  UATIU  ( GDTM)  OF  TIE  ACCELERATION  DUE  TO  ATNISU 

C  SUAVITY  TJ  THE  NOLeCULAH-SCALE  TEMPeRATORa  AT  ALTITUDE  ZHT(N).  ATNOS'I 

TZU(I)  *  CAP (  ZHT(I)  )/((!. »SP)*T2H(N)>  ATMOSU 

104  CONTINUE  ATMJjU 

CALL  F(TT£R(NZHT/ZHT/TZH/11/  2,2  /ID  ATMOSU 

C  COMPUTE  CHAV.  ACCEL.  G,  G  D1Y10ED  BY  NJL.  SCALE  TEMP.  TM,  ANU  ATMUSU 

C  INTEGRAL  OF  C/T4  AT  120  14.  ATMJSU 

:c  *  CAP  1  ZH  )  ATMtlSU 

CO  TM  =  COT  MAPI  ZH  )  ATMOSU 

SOTMl  =  CTM1 AF (  ZH  )  ATMJSU 

COMPUTE  PRESSURE/  DENSITY/  AND  TEMPERATURE  AT  120  KM  ATMtlStl 

ACCORDING  TO  THE  LON- ALTITUDE  MODEL.  THESE  YALUES  PxJVIDt  ATMJSJ 

THE  MUJNDARY  CONDITIONS  AT  120  KM  FOR  THE  H I GH-ALT ITUDE  MODEL.  ATNO/U 
PP  *  PZ*EZP(-CCl*COrHI)  ATmOSU 

IRQ  :  HGNS*COTN/HR*PP/CG  ATMOSU 

CALCULATE  OeNSITY  AT  S  KM  FOR  USE  IN  SUBROUTINE  MAT&R.  ATMU/U 

PPS  -  PZ*EKP(-CC1*CTNIAF(  S.  ))  ATMOSU 

BHOSKM  =  blCMS'CUTNAFt  S.  )/RR •PPS/CAFt  5.  )  ATMUSJ 

INITIALIZE  SUBROUTINE  SPCMIN  ATMOSU 

CALL  SPCMI M( 1/ZH)  ATM JaU 

EVALUATE  BMdMS  AT  120.  KM  ATMOSU 

IF  =  SFDAFI  ZH  )  ATMOSU 

BMBMS  =  1.0/(  1.  ♦  SF  )  ATMOS J 

TZ  -  BMBMS*GG/CUTM  ATMOSU 

COMPUTE  THE  SPECIES  NUMBER  DENSITIES  AT  1 2D  KM.  ATMOSU 

COMPUTE  TOTAL  NUMBER  OENSI TV ,N ( 1 /CN** 3)  ATMOSU 

$■  =  B IC A/BI  CHS*  RHO/ BMBMS  ATmOSU 

C  COMPUTE  TOTAL  NUMJER  OENSITY  IP  NO  DI SSOC I AT10N, NST AR( I /CM** J >  ATMOSU 

INS  *  3 i GA* RHO/B I CMS  ATMOSU 

C  COMPUTE  DENSITIES  (1/CM**3)  OF  N2/  02/  0,  AR,  HE/  AMD  C02.  ATMOSU 

SNIZ(l)  =  0. TB*SNS  ATMOSU 

SNIZ12)  =  1.211*SNS  -  SN  ATMOSU 

SBIZ(J)  *  2. *SMS*SF  ATMOSU 

SNIZ(4)  *  0. 009* SNS  ATNuSU 

SNIZ(S)  x  4.  62 St. -OS* SN S  ATMOSU 

INIZ(S)  >  C02(2S)  ATMOSU 


AT  HDSU 

IEI20  X  RE*1 20.  ATMOSU 

CCSK  X  CC/SK  ATMOSU 

CC  X  PI*HL/12.  ATMOSU 

FF  =  SBAH  ATMU/U 

COMPUTE  FOURIER  COEFFICIENTS  USED  FOR  TAJ  AT  120  KM.  ATMOSU 


uuuuuouuuuoouuuuuuuu 


c 


c 


1 19 
8001 


All)  =  *2. 210156E-02  - 

1 . 9730  JOE-35 

• 

PF 

ATM  ISO 

J4  J 

A12)  «  *6.712358E-93  - 

1.  181 137E-95 

• 

PF 

ATMJSU 

041 

AO)  *  ♦  2. 7481 80E-04  ♦ 

0.  3VU522E-07 

• 

PF 

ATH.jjU 

045 

4(4)  >  -6.663477E-34  ♦ 

8.66901 6E-3  7 

• 

FF 

atmjsu 

j4o 

A1S)  *  -4.6S225BE-05  » 

2 . 0229  JOE-3  7 

■ 

FF 

ATHtlS'J 

047 

1(6)  *  *8. 984354E-05  - 

1.128157b -37 

• 

FF 

ATMJSD 

04  d 

BID  *  - 3.407J98E-03  ♦ 

1. 90095  9E -0  5 

• 

FF 

ATHJSU 

04V 

1(2)  «  -5. 428597E-04  ♦ 

4.10131  3E-36 

• 

FF 

ATHjS'I 

05  J 

1(3)  *  -2.  S18983K-04  - 

5.34111 2E-3 7 

• 

FF 

ATnjjU 

351 

1(4)  *  -1.3808456-04  ♦ 

2. 07532  4b -07 

• 

FF 

AThiISU 

05  2 

1(5)  *  *  1. 358994E-04  ♦ 

J. 93181  IE-37 

ft 

FF 

aTmosu 

05  J 

confute  ratikita  coefficients  js e» 

F  UN 

T  IF. 

ATH  is') 

054 

r (  1 )  *  *5. 4435  3BE*02  • 

4. 3288J7E»00 

ft 

FF 

ATmJSJ 

055 

~ ( 2  >  x  -1.1 7V819e*02  - 

6.  495360b -01 

ft 

FF 

ATH!  IjU 

05b 

C(J)  »  ♦  3.115091  E*01  - 

4.76681  RE-32 

ft 

FF 

ATHJSU 

057 

r ( 4 )  *  *4.0693238*03  • 

4 . 15463  2E-02 

ft 

FF 

ATMJSU 

15d 

:<5)  *  -6. 38 VObl t*03  ♦ 

1. 415760b -02 

ft 

FF 

ATNtlSU 

05  V 

:(&)  *  *1.0454826*03  - 

1.9V5652E-32 

ft 

FF 

ATH'ISU 

ObO 

5(1)  «  -1.1386636*01  - 

7 . 298 74  9b-0 1 

ft 

FF 

ATHJSU 

06  1 

5(2)  x  »1.  359bbHE*3l  » 

2.815729E-0  3 

ft 

FF 

ATH'ISU 

06  2 

S(3)  x  ♦  V.  8691 58F-01  • 

8.136861E -02 

ft 

FF 

ATHJSU 

36) 

S(  4 )  >  *7.3611  J2E-31  - 

1.151 738E-3  2 

ft 

FF 

ATMOS'! 

06  4 

S(S)  x  -2. 9253158-91  - 

4.625236E-32 

ft 

FF 

ATMOSU 

36  5 

CONFUTE  TAD  (1/AN) 

AND  TIP  ( DECREES  8ELV1N) 

ATMjxU 

06b 

T6II  x  All) 

ATHJSU 

0b7 

T1F  x  C(l) 

ATHJSU 

Obd 

90  119  (=1,5 

ATHJSU 

06  V 

FI  x  1 

ATHJSU 

07  0 

sri  s  siN(CC*ri) 

ATHJSU 

071 

:ri  x  os( cc*f  1 ) 

ATHJSU 

07  2 

TAB  x  TAU  »  CF 1* A( 1* 1 ) 

♦  SF1*H(1> 

ATMOSU 

070 

flF  x  TIE  •  CFI*C(1*1) 

♦  SFi *S ( 1 ) 

ATHJSU 

07  4 

NR1TC(A,8091)T1F,TA0 

ATHJSU 

176 

FORMAT  (/•  TIP  >  *F8.3>  DEC  8,  TAU 

s 

•1 PEW. 5* 

1/AH,  F KOH  SUHROUT 

ATHJSU 

07  0 

5188  ATMjSU  (FORMAT  8001)*) 

ATHJSU 

077 

ATMJSU 

378 

TO  PROVIOS  A  CONTINUOUS  DENSITY 

SCALE 

HEIGHT 

ACROSS  THE 

ATHJSU 

07V 

BOUNDARY  BETWEEN  THE  LON-  AND  H ICM- ALT 1 TIDE 

H JUbLS,  WE  OSE  A 

ATHJ,U 

08  U 

PARABOLIC  TRANSITION  FUNCTION, 

ATHJSU 

081 

HR HQ  =  FHR120 

•  AHN1 10 **2  * 

SB  • 

ZHNUO 

•  HkOllD 

ATMJSU 

3ft  2 

WHERE 

ATMOjU 

odo 

HRO110  x  DENSITY 

SCALE  6EICHT 

AT  110  A 4 

ATHJSU 

3d  4 

(HMl  1 0  x  1H-110. 

ATHJSU 

3«6 

SH  X  APPHJAt HATE  OEHIVATIVE 

or 

DENSITY 

SCALE  HEIGHT 

ATMJSU 

18  0 

AT  110- 

AM  ALTITUDE 

ATMjSU 

087 

C 


=  UR1105-HH10V5  ATMJSU 

HH105  =  DENSITY  SCALE  6EICHT  IT  110. 5  Art.  ATN.ls'l 

HH1095  x  DENSITY  SCALE  HEIGHT  AT  109. 5  AN.  ATMujU 

PH  Hi  20  =  (HKJ123  -  10.»SB  -  HHJl  10 )/(  12 0. -1 1 U.  ) »*2  aTn  IjU 

IN  THIS  INITIALISATION  CALL  d£  NEED  TO  COMPUTE  THE  DENSITY  ATMJSU 

scale  height  at  120  ah,  iiroi2),  according  to  the  high-altitude  atmusj 

MODEL,  NHICh  DEPENDS  uN  HL  AND  SHAH,  AID  ALSO  THE  DENSITY  AtH.lSU 

SCALE  HEIGHTS  ACCJRUINC  TO  THE  L 0* -  ALT  1 T  J  Ut  N  JOEL  AT  110  AN,  ATMOS') 

110.  S  AN,  AND  109.  5  AN.  ATNIISU 

COMPUTE  SMALL  A.  ATn./jJ 

SA  =  (TIP  -  T21/TIF  ATM  ISO 

COMPUTE  COEFFICIENT  OF  M-SDB-I  IN  GAMNA-SUj-1  ATNJSU 


Add 
38  9 
J90 
J91 
J9  2 
39 1 
IV  9 
J9‘j 
19» 
■»V7 
Jia 
19  9 


125 


star  «  uoe»os*ccsK/mrar*tf) 

AThU.SU 

400 

(HO  *  0.0 

ATHu.»U 

401 

iitooia  *  o.o 

ATNUSU 

402 

30  120  (St, IS 

AT.msn 

40) 

SHZS4I  *  SN I Z(  I )  *SNl  ( I ) 

ATMJSU 

404 

:an  <  gamt*sni(1) 

ATHUjU 

405 

alcani  *  alp ( i >  ♦  eta  ♦  l.o 

ATNUSU 

40  5 

IHO  *  (HU  *  SHZSN1 

ATNUSU 

407 

oruozh  =  oaoozk  ♦  shzsmimcah  ♦  alcani*sa/u.-sa>) 

ATNUSU 

40  H 

120  coitihua 

ATNUSU 

40  9 

aaouo  *  RHO/bftoozaprtu 

ATNUSU 

410 

c 

compute  Dsasm  scale  height  at  ho  km. 

ATHOsU 

411 

COTN  *  CDTNAPl  110.  > 

ATNUSU 

412 

(■olio  s  i.o/(cci*cora 

ATNUSU 

41) 

•  -  2.0/(HE»110.0)  -  ClKZAFC  110.0  )/C0rM) 

ATNUSU 

414 

c 

COMPUTE  0A6S1TV  SC ALb  HAIGHT  AT  I10.S  KN. 

ATNUSU 

115 

SOTN  *  CUTMAf {  110.it  ) 

ATNUSU 

41b 

mrius  «  i.o/icci«cim 

ATNUSU 

417 

•  -  2.0/(RA»110.S)  -  GKKZ AFC  110. 5  >/C0TN> 

ATNUSU 

41 H 

c 

COMPOTE  DAMS  ITT  SCALE  HAIGHT  AT  109.5  KN. 

ATNUSU 

419 

SOTN  3  CDTHAF(  109.5  ) 

ATNUSU 

420 

10109$  *  i.o/<cci»sora 

ATNUSU 

421 

•  -  2.0/(  RA»109.5)  -  6KKZ Af  (  109.5  )/CDtN) 

ATNUSU 

422 

SO  s  Hit  1 10S-HR  1095 

ATNUSU 

42  A 

PH0120  *  0.D1*(HRU120  -  10. »SH  -  HRUllO) 

ATNUSU 

42  4 

ATNUSU 

425 

AT  1 ICHTTINE,  0  01PPAHS  PROM  DAYTIME  U  UAL*  0 ALUM  ALTITUUt 

ATNUSU 

426 

Z10M(S)  a  90  KM.  1P(  Zit.LT.ZlOHd)),  HHAHA  ZiUH(l)  =  50  AH, 

ATNUSU 

427 

SHU  J)  =  0MZK1 )  *  UHITA113)  =  1.1  . 

ATNUSU 

428 

IP(ZH.CA.ZI0H(1)  .AMO.  ZH. LT .1 10M( 2) >,  HI AR A  ZIUMC2)  *  75  KN, 

ATNUSU 

429 

SMf(J)  x  UNZ1(2)  *AKP(ZN20(  *UHSCHl  )  HHARE 

ATNUSU 

430 

0N£1  (2  )  >  OH  IT  El  1  b)  x  4.93EOS 

ATNUSU 

431 

ZH20H  x  ZH-ZIUN(2) 

ATNUSU 

4)2 

OHSCH I  >  AL0C(UNZ1( 2) /UHZI(l) )/(ZIUH(2)~ZiuH(l)) 

ATNUSU 

43) 

IPlZH.CT.ZJOMd)  .AMO.  ZH.LA.ZI0H(4))  HHAHA  Z1UH(4)  *  H5  AN, 

ATNUSU 

434 

sail  3)  x  0MZ1(4) •EKP(-(g5. -ZH)/SZ) 

ATNUSU 

435 

HHAHA  SZ  IS  AH  ALT ITUUE-OcPAND ANT  SCALa  HAIGHT  SO  D AT AHMIH EO 

ATNUSU 

436 

THAT  THA  PUHCTIOH  PASSES  THROUGH  THE  OATH  PU1MTS  AT  75,  HO, 

ATNuiU 

437 

AHO  85  KN, 

ATNUSU 

43b 

SZ  =  S85  -  (S8s-S00 )*(85.  -ZH)/5. 

ATNOSJ 

439 

S80  x  5./AL0CI  UMlTtd 8)/0HlTA(17)  ) 

ATNUSU 

440 

SH5  x  2.  *SH6  -  lO./ALJCl  0  H1TEUH  )/0H  IT  All  6)  > 

ATNUSU 

441 

ir(ZH.CT.ZI0H(4>  .AHO.  ZH.  LT.Z10H(5>)  Hit  AHA  ZIUH(S)  X  90  KN, 

ATNUSU 

442 

Sail  32  x  OHZ 1142  *AXP( ZN40H/UHS Cb>  HHaRA 

ATNUSU 

44) 

0HZK4 )  X  UHlTEdSl  x  9.05*10 

ATNUSU 

444 

ZN40a  X  ZH  -  Z13H14) 

ATNUSU 

445 

JHSCH  X  (ZtOH(S)  -  Z! UH{  4) )/  ALQG(  OHZK  5)/0HZl(4>  ) 

ATNUSU 

446 

THE  HIGHTTIN A  0  CUMSTAHTS  ARK  HUM  SAT. 

ATNUSU 

447 

UOH(l)  x  ALTANl  1 3 ) 

ATNUSU 

44  8 

]OEld)  x  oaiTCdS) 

ATnUSII 

449 

>0  1)0  1x2,5 

ATNUSU 

450 

tlOH(l)  x  ALTANl  1*14) 

ATNOSU 

451 

IHZKl)  x  OaiTEd«14) 

ATNUSU 

452 

130  :oht t a j( 

ATNUSU 

45) 

(H2  x  ZI0N15) 

ATNOSU 

454 

c 

TO  RESET  OHZ 1(5)  TO  ITS  PROPER  VALUE  HE  HEAD  TO  FIRST 

ATNUSU 

455 

c 

CALCULATE  ODATZS... 

ATNUSU 

456 

126 


COMPUTE  CHAV.  ACCEL*  C,  C  DIVIDED  0*  NUL.  SCALE'  TEMP.  TM, 
AMS  INTEGRAL  OP  C/TM  AT  ALTITUDE  ZH2. 


C 

C 

c 

c 


c 


c 


c 

c 

c 


c 

c 


AM 


c 


c 

c 


ATMJS I 
ATMOSU 
ATNUSU 


ATmOSU 

CC  a  CAF(  ZH2  )  ATNUSU 

SBTM  a  CDTNAFI  ZH2  )  ATmOSU 

SB TNI  <  CTMIAPI  ZH2  )  ATNUSU 

COMPUTE  PRESSURE  AMO  DENSITY  AT  ALTITUOE  ZH 2  ATnbSU 

PP  a  PZ*tXP(-CCl*CorMt)  ATNUjU 

RMU  a  )1CNS*CDTN/KR*PP/UC  ATm.ISU 

COMPUTE  N/MSTAR  SAT  AT  ALTITUDE  IH2  ATMOSU 

SP  a  SPD  AP(  ZH2  )  ATNUSU 

•MAMS  a  1.0/U.  ♦  SP)  ATMOSU 

COMPUTE  TOTAL  MU  MM  CM  UCHSITY,  NU/CM*»J)  AT  ALTITUDE  ZH2  ATMOSU 

SM  a  8ICA/81CMS*  RHO/  BMBMS  ATMOSU 

COMPUTE  TOTAL  MU  MM  EM  DEM  SIT*  IP  MO  UISSOC  IATIOH,  ATMOiU 

MSTAM  (l/CN«*3>  ATMOSU 

IMS  a  )!CA*RHO/BiCMS  ATMOSU 

1DITZS  a  2.*SNS>SP  ATMOSU 

3NZK5)  a  OOATZS  ATMOSU 

3NSCHI  >  AL3CtaNZI<2)/OMZI(l))/iZ10M12)-ZIOMll>)  ATNuSU 

SBD  a  S./ALOK  OM1 Tl (1 8 )/OMI TS ( 1 7)  )  ATMOSU 

SMS  a  2.*S80  -  I0./ALJC(  UNITE(l8)/ONITE(lb)  )  ATMOSU 

JBSCM  a  UION(S)  -  ZlilMI  4)  )/ ALOC(  QMZ1(S)/QNZ  II  M>  )  ATMOSU 

ATMOSU 


TO  PROVIDE  A  COMT1MUOUS  TRANSITION  IH  THt  C02  DENSITY  UeTHeeN  ATMOSU 
THE  ALTITUDE  OP  100  E N,  BELUM  MH1CH  A  CUMSTAMT  N IX 1  MS  RATIO  ATMOSU 

IS  ASSUMED/  AMD  THE  ALTITUDE  3F  120  KM,  4 T  MM  1  CM  THE  ATMOSU  ATMOSU 

MISM-ALTITUUE  MODEL  (BASED  UM  DIPPUSIVE  S3UILI8RIJN)  BgCINS,  ATMOS'J 

ME  USE  THE  POLTEOMIAL  ATMOSU 

LOCI  0(SM  1  ( 6 )  )  a  SUM(  XC(  I)  *Z41  C02**t 1-1 )  »,  1  =  1,7  ATMOSU 

AHSRE  THE  COHSTAmTS  XC(I), 1  =  1,7  ,  4 ME  DE TEMNl Mc.0  S3  THAT  THE  AToiJSU 

SLJPE  UP  AL0610(  SM  I  (6) )  AT  ZIC02(1)  a  100  KM,  DLCZ1Z,  AMD  ATMOSU 

AT  ZICQ2(S)  a  120  KM,  DLCZSZ,  IS  C0MT1MU3US  AMU  ALOC I 0( SHI (6) )  4TMuSU 
EDUALS  THE  VALUES  FOR  C32  AT  ZIC32CI)  a  I0U, 105,11 0, US,  AMD  ATNUSU 
123  KM  PUR  I al,S  .  ATmOSU 

THE  C02  CUMSTAMTS  ARE  MOM  SET...  eTNuSU 

DO  lbO  1=1, S  ATMOSU 

II  COM  I  )  a  ALTKN(I»20)  ATmOSU 

:02Z((I>  *  C02(l«20)  A TMOSU 

COMTIMUC  ATMOSU 

RESET  C02ZKI)  T3  THE  VALUE  31TAIMED  PROM  THE  LOH-ALM  TUDE  ATNQSU 
MODEL  AT  ALTITUDE  ZIC02(1)  a  100  KN.  TO  DO  THIS  ME  MUST  FIRST  ATMOSU 
COMPUTE  CRAV.  ACCEL.  C,  C  DIVIDED  BV  MOL.  SCALE  TEMP.  TM,  AMO  ATMOSU 
INTEGRAL  OP  C/TM  AT  100  KM.  ATMOSU 


ATMOSU 

COMPUTE  CRAV.  ACCEL.  C,  C  DIVIDED  IT  MOL.  SCALE  TEMP.  TM,  AMU  ATMOSU 


INTEGRAL  OP  C/TM  AT  100  KM  ATMOSU 

SG  a  GAP!  100.  )  ATNUSU 

•OTR  a  60TNAP(  100.  )  ATMOSU 

SO  TNI  a  CTMIAFI  100.  )  ATMOSU 

COMPUTE  PRESSURE  AND  UEISITV  AT  100  KN  ATMOSU 

PP  a  PZ*KXP(-CCl*CDrNt )  ATmOSU 

■MO  a  SIGNS* CD TM/RH*PP/GG  ATNOaU 

COMPUTE  TOTAL  MUM8ER  DENS1TV  IP  NO  OISSU: lATlUM,  ATMOSU 

MSTAR,  AT  100  KM.  ATMOSU 

SMS  *  i I CA*RHO/ B I  CMS  ATNUSU 


MS/ 
MSB 
MSB 
MbO 
Mbl 
Mb  2 

46  i 
4o4 
Mbs 
Mbo 
4b7 
Mb  8 
Mb/ 

470 

471 

47  2 
47  J 
47  M 

475 

476 

477 
47  H 
470 
MHO 

481 

482 
MB  3 
484 
MBS 

486 

487 

488 
48/ 
440 

491 

492 

493 

494 

495 
4  VO 
49/ 
49H 

499 

500 

501 
SO  2 
SO  J 
SOM 
SOS 
SOo 

50  7 
SOH 
504 

510 

511 

512 

51  J 


C02ZIII)  =  J.20c-04  •  SNS 
*C<7)  >  ALdC10(CU2Zt  (I )) 

f HE  SLOPE  UP  ALJSlOlSxitb) )  AT  ALTITUDE  Z1C32II)  »  100  KN, 
DLCZIZ,  is  LITEM  H Y  DLCZIZ  -  A LUC1 0( EXPIl . 0 ) t • U 1 . / KUO) 

•( J( KHO)/DZ)  )  •  *LOGlO(E*P(1.0 ))*t-l./MKMU). 

COMPUTE  DENSITY  SCALE  HbISHT  AT  100  KM. 

I8J180  x  1 • 0/( CC l*G0f M 

•  -  2.0/(Mb»100.)  -  UKKZAPI  100.  )/GUTM) 

JLCZlZ  *  (  -1. 0/HRUl DO) *ALoCl  0(  EIP(l.O)  ) 

(CIA)  x  DLCZIZ 
)3  lb4  1x2,5 

ZlNlC(l)  x  ZICU2II)-ZICJ2I1) 

1*4  CONTINUE 

10  IAS  1=1,4 
(112  =  Z IN1CI 1*1) 

JU,»>  x  Zll 2*Z1 12 
JO  1SS  J=l,4 
)(I,S-J>  =  ZII  2*01 1,  b- J) 
lb>  CONTINUE 

Z11S  =  ZIMIC(S) 

JIS,5)  =  2.  *ZI  IS 
JO  170  J=l,4 
PJ1  x  j»l 

J(  S,  5  —  J )  x  ZIIS*HPJl»l.J/PJl)*D4»,b“J) 

170  COHTIMJZ 

JO  ITS  1=1,4 

J(1,S)  x  ALOC10IC02Z1I  1*1 ))  -  *Ci»  )*ZlNlCtl»l  J  -  IC17) 

17S  CONTINJZ 

JLCZSZ  =  ALOCIOI  ElP(l.O)  »*TAU* IS A*SMI I A) *CAMT )/ (SA-1. 0) 

JIS, A)  x  DLCZSZ-XC(A) 

NO  *  J 

CALL  SJLYS(D,1C,MU> 

COMPUTE  0  DENSITY  AT  IAO  KM  PJB  USE  IN  0(1U>  COMPUTATION  IN 
SU1R00T1NE  SPCMIN. 

(Z  =  B1 1  20 •(  ALTKMI  31)-120.)/(H E» ALTKNI  J3  )) 

1TZ  x  EIPI  -I AU*ZZ) 

TTOTZ  =  (TIP-ITIE-TZ)«ETZ)/TZ 
JAN  =  SAMT»SMIO) 

1LCAM1  =  ALPI J)»CAMU.l) 

i JAOO  x  SM1Z(J)*ETZ**:an/TTUTZ**ALCAM1 

EVALUATE  ATNOSPNEKIC  PRJPaKTIES  AT  90-KM  ALTITJOE  PKIUK 
TO  INITIALIZING  IJNUSJ. 

(MSAVE  X  ZH 
ZH  =  90. 

JUMP  =  0 
GO  TO  210 

171  JUMP  =  2 

INITIALIZE  IUNOSU  ROUTINE. 

CALL  l JNUSU ( 1, ZM ) 
t  M  —  irtS  AV  £ 

SET  ZHF LAG  AND  SPIPLG  (IMHITtfAKY  NtCATIYb  YAlUcS) 

SPIPLG  =  -20. 

CHPLAG  x  -20. 

IeTUAN 


ATMUjU 
aTMOjU 
ATMOS') 
ATM  ISO 
ATMIIjU 
ATMOSU 
ATMOSU 
ATMO..U 

atmosu 

ATMilSU 

ATMOS'J 

atmosu 

ATM.;  jj 

ATmiJSIJ 

ATMUjU 

aTmusu 

AfMdSU 

ATMOSU 

ATMOSU 

ATMOSU 

ATMOSU 

ATMOxU 

aTmjjJ 

ATMOS'J 

ATMOSU 

atmusu 

atmosu 

ATMOSU 
ATMuxU 
atmosu 
ATMOSU 
ATMOSU 
ATMJiU 
ATMOSU 
ATMOSU 
ATMOSU 
ATMOSU 
ATM, ISO 
ATMOSU 
ATMOSU 
ATMOSU 
ATMOSU 

atmosu 

atmosu 

ATMOSU 

ATMOSU 

ATmo.U 

atmosu 
atmosu 
ATMOS J 
atmj^u 

ATM  IS'; 
ATMOSU 
ATMl ,U 
ATMOSU 
ATi*  1SU 
ATM  ISJ 


.  . . .  ii  i 


cc 

ATNIUU 

571 

201 1 

CQHTIHUE 

atnl,u 

,7. 

(FI  ZH.EO.ZHFLAC  )  RETURH 

ATMuSU 

■>7  3 

cc 

i  to 

ATMIISU 

57  4 

c 

AO  ERRONEOUS  CUNDIU0.1  « ILL  OCCUR  IF 

IOHjSU  JR  jFCMIN  Is 

ATNIuU 

57, 

c 

called  ritu  jj=2  and  a  given  value  of 

ZH  IF  XINOSU  HAS  MOT 

atmiisu 

lit 

c 

ICE!  CALLED  FIRST  M1TH  JJ=2  AND  FOX  THE  SANE  VALUE  OF  1H. 

ATHOSU 

577 

c 

THE  VARIABLE  ZHFLAG  IS  USED  T3  DETECT 

THIS  CONUITI ON  AND 

ATNOSU 

57  a 

c 

TO  MAKE  THE  RE9UIKE0  CALL  TU  ATHOSU. 

ATNUSU 

57  9 

c 

(HFLAC  is  INITIALI 1E0  T3  AN  ARBITRARY 

NESAT1VE  VALUt  IN 

ATMIISU 

58(1 

c 

TNI  INITIALIZATION  CALL  TO  ATNOSU. 

ATHOSU 

5H1 

ccc 

ATNOSU 

5b  2 

1MFLAG  -  ZH 

ATMJSU 

5H  J 

219 

C3HT1HUI 

ATMIISU 

58  4 

REZUI  *  1.0/(  RE*ZH  ) 

ATMJSU 

5b5 

iri  ZH  • CE.  120.  )  CJ  TO  250 

ATMIISU 

5dt> 

c 

ATNOSU 

5BT 

cc 

CCCC  L0H- ALTITUDE  MODEL  ( ZH  .Lt.  120.) 

ATNOSU 

50  H 

c 

ATMJSU 

5d  i 

c 

CONFUTE  CRAN.  ACCEL.  AT  ALTITUDE  ZH, 

c:ccn/sec**2). 

ATNOSU 

590 

S6  =  GIF (  ZH  ) 

ATHUSJ 

591 

c 

CONFUTE  CRAY.  ACCEL.  DIVIDED  »V  RULE  Cl)  LA  4  -SCALE  TeHPERATURE. 

ATNOSU 

592 

JOTM  =  GDTNAFI  ZH  ) 

ATNOSU 

59  J 

c 

CONFUTE  INTEGRAL  OF  G/TN. 

ATNOSU 

594 

GOTMI  -  GTNI AF(  ZH  ) 

ATNOSU 

595 

c 

coNPure  function  needed  for  density  : 

SCALE  HblCHT 

ATNOSU 

59b 

EKAZ  =  GKKZAFI  ZH  ) 

ATNOSU 

597 

c 

CONFUTE  PRESSURE  ( OYNES/CN »*2) 

ATNOSU 

598 

FF  =  PZ*EXP(-CCl*CUf Nt) 

ATNOSU 

599 

c 

CONFUTE  DENSITY  (G/CN»*3) 

ATMJSU 

oUl) 

IHO  *  1ICNS«CDTM/MR*PP/GC 

ATNOSU 

60  1 

c 

COHPUTE  DENSITY  SCALE  HEIGHT  (KH). 

ATNOSU 

60  2 

IF  (ZH  .CE.  110.)  CU  TU  230 

ATNOSU 

oO  J 

■RUQ  »  l .0/ ( CC1*  CDTN  -  2. 0*R EZHI  -  CIKZ/GDTH) 

ATMJSU 

604 

SO  T3  235 

ATNOSU 

toOb 

239 

ZHN110  *  ZH  -  110. 

ATHOSU 

606 

IRAQ  *  I FHR1 20*ZHMll  9  ♦  SB)*ZtfM119  ♦  HR0110 

ATNOSU 

60  7 

c 

9SE  FIT  FUNCTION  TO  UNIVERSAL  PROFILE 

OF  SF  FUNCTION. 

ATNOSU 

bOd 

235 

SF  =  SFDAFI  ZH  ) 

ATNOSU 

60  9 

ININS  *  1.0/0.  »  SF) 

ATNOSU 

610 

c 

CONFUTE  TENPERATUHE  (DEG  I) 

ATNOSU 

bll 

TT  s  BH8MS*GG/U0TN 

ATNOSU 

ol  2 

c 

CONFUTE  NUNbER  DENSITIES  OF  SPECIES. 

HE  PRESCRIBE  THE 

ATNOSU 

613 

c 

BAY -NIGHT  DEPENDENCE  OF  0  AND  USE  THE 

LON-ALTITUDE  MODEL  TO 

ATNOSU 

614 

c 

CONFUTE  THE  ASSOCIATED  SLIGHT  DAV-N1GHT  DEPENDENCE  OF  02  . 

ATNOSU 

615 

SNS  *  BI GA*HHU/H ICHS 

AtNuSU 

616 

SN  s  SNS/BNBHS 

ATNOSU 

617 

SNIi 1 )  =  9. 78*SNS 

ATNOSU 

61 B 

SHI ( 2 )  *  1.2 1 i* SNS  -  SN 

ATNOSU 

619 

SNI(3)  =  2.*SNS*SF 

ATNOSU 

620 

IF!  IDORN.CE.O  )  GO  TO  245 

ATHOSU 

621 

c 

CONFUTE  N1GHTTINE  VALUE  OF  0 

ATNUSU 

622 

ir c  ZH  .CE.  90.0  )  GO  TU  245 

ATNOSU 

623 

I FI  ZH  -  ZI0NI4)  )  240,240,239 

ATNOSU 

62  4 

c 

FIT  FOR  85.0  .LT.  ZH  .LT.  90.9 

ATNOSU 

625 

239 

ZN4UI  *  ZH  -  ZI0NI4) 

ATNOSU 

&2b 

SMI(I)  *  0NZK4 )  *EXF(ZN4UN/0NSCH) 

ATNUSU 

627 

129 
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20  TO  245 

ATM, la') 

630 

242 

iri  1U  -  Z IQN( 2 )  )  242,242,241 

ATHUSU 

o29 

c 

FIT  FOR  75.0  .Lf .  ZH  .Lt.  85.0 

ATmJSU 

o30 

241 

SZ  =  SMS  -  (SM5-S80)  •(  85.  -Z8)/5. 

ATMII  jU 

631 

S8U2)  *  QNITE<l8)*gAP(-(8S.-Z8)/SZ) 

ATM  laJ 

632 

23  Tl  245 

ATriOSI) 

633 

242 

in  za-zioao)  >  244,243,243 

atriisu 

634 

c 

nr  r oh  60.0  .us.  z«  .u.  75.0 

ATHUSU 

6  35 

24J 

1M208  *  ZM-Z10NI2) 

ATHUSU 

636 

sai(j)  =  onzi(2)*4Ipun2om*onschi) 

ATHUSU 

63  1 

20  TO  245 

ATMilaU 

63tf 

c 

PIT  FOH  Z8  .LT.  40.0 

ATHUSU 

634 

244 

S8KI)  =  0821(1) 

ATHUSU 

640 

c 

F08  U  .Ct.  40.0,  USE  OIT  SMI(3).  PROCEED  M IT8  OTHER  SPECIES. 

ATHUSU 

6H1 

245 

SNI(4)  s  0. 009*SNS 

ATHUSU 

642 

SBI(S)  =  4.625A-0S*SNS 

ATHUSU 

64  3 

[ r (  IH.LE.100.  )  S3  TO  244 

ATHUSU 

644 

(M1C32  3  ZH-Z1C02(1) 

ATHUSU 

646 

181(5)  3  13.**((((((i:(l)*ZHlC02  ♦  XC( 2 ) ) *  ZM1  CL)  2  ♦  «C(  3)  )  *241 C02 

ATHUSU 

646 

• 

»  XC(4))*ZM1CQ2  »  1C( 5) )*Z4 1C32  ♦  XC(6 )) *ZMIC32  ♦  (C(1)) 

ATHUSU 

647 

SO  TO  247 

ATHUSJ 

64  8 

244 

Sai(4)  3  J. 20c. *08  •  S8S 

ATHUaU 

644 

c 

COMPUTE  FRACTIONAL  ERROR  FRuM  HYDROSTATIC  EQUILIBRIUM... 

ATHUSU 

660 

c 

FCHSEQ  3  -1.0E-OS*DPPDZH/( RH0*CG)  •  1.0 

ATHUSU 

65 1 

c 

3  -2.667094S2E-12  *  RR  •  ZII**l.83J  /  (BlCH,  •  CDTM) 

ATHUSU 

66  2 

c 

MHERK  2. 667041 528-1 2  3  l.OE-05  *  2.833  *  4.4144E-0U 

ATHUSU 

65  J 

241 

PEUSia  3  -2.447099528-12  •  RR  •  Z8**1.833  /  (BtGMS  *  COTn) 

ATnUSU 

654 

IP(  JUMP. 80.0  )  CO  TO  177 

ATHUSU 

655 

14TU«a 

ATHUSU 

666 

c 

ATHUSU 

65  7 

CCCCCC  M1SM-ALTITUDE  MODEL  ((H  .SC.  120.) 

ATHUSU 

658 

c 

ATHUSU 

664 

c 

COMPUTE  TM£  C83P3T ERT11L  1LT1IUD8  18088  120  KM,  ZZ(KN). 

ATHUSU 

660 

2S2 

:oaTi aut 

ATHUSU 

661 

IX  *  Rfl20MZH-120.)«ueZH( 

athusj 

66  2 

c 

COMPUTE  THE  TEMPER 1TUME  IT  THE  CEuPUTENTl 1L  1LT 1 TUD8, TT{ DtC  K> 

ATH.JSU 

6b  3 

CTI  3  EE  P( -T 1U*ZZ ) 

ATHUSU 

664 

IT  3  nr  -  (Tip-TZ)*grz 

ATHUSU 

065 

c 

COMPUTE  RATIO  OP  TEMP8RATURE  TO  TEMPER 1IJR8  IT  120  KM. 

ATHUSU 

666 

TTOT2  *  TT/TZ 

ATHUSU 

667 

PP  3  0.0 

ATHUS'J 

668 

RHO  3  0.0 

ATHUSU 

669 

JR00Z8  3  0.0 

ATHUSU 

67  0 

OPPDZH  3  0.0 

ATNUSU 

671 

>3  240  (3l#(S 

ATHUSU 

o7  2 

COMPUTE  CANMA-SUB-1. 

ATMUaU 

67  3 

SAN  3  SANT*SM1( 1 ) 

ATHUSU 

67  4 

AL6A41  3  AlPU)  »  CAM  ♦  1.0 

ATHUSU 

676 

COMPUTE  DENSITIES  (1/CM“3)  OP  M2,  02,  0,  AR,  88,  A80  C02. 

ATHOSU 

676 

181(1)  3  SM1Z(1)*ETZ**CAM  /  TT0TZ**ALCAM1 

ATNUSU 

677 

COMPUTE  TOTAL  MUMMER  DENSITY  (1/CN**3). 

ATHUSU 

678 

PP  «  PP  ♦  SNl(l) 

ATHUSU 

6 14 

COMPUTE  TOTAL  NASS  0C8S1TT  (C/CN**J). 

ATHUSU 

660 

(NO  x  R80  ♦  SNI(I)*SM1(I) 

ATHUSU 

6dl 

COMPUTE  A  PORTION  OP  THE  SPATIAL  DEMlVATlVb  JP  THE  DENSITY. 

ATHUSU 

68  2 

1CAET  «  SR I(  1 ) *(  CAM  ♦  ILSANI  *ETZ*(  TIP-TZ)/TT) 

ATHUSU 

68) 

IRODza  3  DR 002 M  ♦  $618**5*1(1) 

ATHUSU 

484 

compute  a  portion  up  the  spatial  derivative  up  the  pressure. 

ATHUSU 

68  J 

242 

9PP02H  3  OPPDZH  »  SSAC.T 

ATHUSU 

66  6 

COMPUTE  SPATIAL  DERIVATIVE  UF  PRESSURE. 

ATHUSJ 

68  / 

JPPU2H  s  (  CAP (  ZH  ) /CART  )  •(SA*PP»ET2  -  TT* UPPUZM/ T 1 P ) 

ATHUSU 

688 

compute  fractional  error  prom  hydrostatic  equilibrium. 

ATH  I5U 

684 

PINS!)  3  -(DPPDiH/(RHJ*SAP(  ZH  ))  ♦  1.0) 

ATHUSU 

69  0 

COMPUTE  PRESSURE  ( OV N lS/CM •  •  2)  . 

ATHUSU 

691 

PP  «  Pi»*TT*S8 

ATHUSU 

643 

COMPUTE  DENSITY  SCALE  HEICHT  (KM). 

ATHUSU 

69  3 

7 ROD  IN  3  DR0DZN*TAU*(RE1 20-iZ) *RE2HI 

ATHUSJ 

694 

HR  NO  3  RHO/ORUOZN 

ATHUSU 

095 

(EfURN 

ATHUSU 

69o 

IRO 

ATHUSU 

697 

130 


sunhjutins  FiTTfcR(NPTs,i,»,NU,  fitter 

FITTER 

suiiWTine  titter  uses  rue  method  or  lcast  squares  tj  compute  fitter 

mi  COEFFICIENTS,  It  J>,J=1 ,NO  IN  A  POLYNOMIAL  OF  DECREE  NO  HTTcR 
*£»aESENTlNC  TNe  DEPENDENT  VARIABLE  «(1)  IuM,  JPTlQNALLY,  its  fitted 
NATURAL  LOGARITHM)  SPECIFIED  l AND  St  TEN  EQUAL  NEICHTS)  AT  FITTER 

NPTS  TALUES  or  THE  INDEPENDENT  TAHIAULE  Ml).  FITTeR 

FITTeR 

NO  RET  IS  KIN  REOJIMEU  IN  (DIMS  PRJN  RJSCUX-RAJAR  TO  R3SCOE-  IN.  FITTeR 

FITTeR 

INPUT  PARAMETERS  FITTeR 

NPTS  •  NUN1ER  UP  DATA  PUINTS  FITTER 

MI)  -  TALSES  UP  ME  INDEPENDENT  TAMABLE,  E.C.,  FITTeR 

ALTITUDE,  Kn  FITTeR 

T(I )  -  TALJES  UP  THE  DEPENDENT  TAMABLE,  E.C.,  SPECIES  P1TTEM 
CONCEN  TRAM  JN,  l./CN**)  FITTr.R 

NO  -  DESHEE  OP  P3LTNUKIAL  TO  BE  FITTED  FITTtk 

IKIND  -  INi)E(  POU  EIN9  OP  EQUATION  TJ  BE  PITTED  FITTeR 

*  1  IP  EQUATION  IS  FITTeR 

LNlf)  *  AD  *  A 1  * E  »  A2*I"1  ♦  ...  »  AN*I**N  FITTER 

*  3  IP  EQUATIUN  IS  FITTeR 

T  *  AO  ♦  Al*X  ♦  A2»X**2  ♦  ...  ♦  AN*I**N  FITTER 

ISICN  -  INOEK  FOR  SiCN  OP  EXPONENTS  FITTER 

*  1  PUR  NEGATIVE  EXPONENTS  FITTeR 

*  2  PUR  POSIT  IT  E  EIPUNtNTS  FITTeR 

FITTER 

INTPUT  PARAMETERS  PlTTEk 

Z(J)  -  TBS  LEAST-SUDARES  PIT  COEFFICIENTS.  FITTER 

Ml)  CORRESPONDS  TO  AO,  Z(2)  TU  Al,  ETC.  FITTER 

FITTER 

HMCNS1JN  A(20, 21),  1(100),  T(103),  ZI20)  FITTr.R 

NOl  *  NO«l  FITTeR 

■02  «  ■ J*2  FITTER 

)0  9  1*1, NJ1  FITTER 

>0  9  J=l,NU2  FITTER 

A( 1, J)  *  0.0  FITTER 

i  CONTINUE  FITTER 

10  20  1-1, NPTS  FITTER 

■  «  TCI)  FITTER 

All, I)  *  AC  1, 1 >  ♦  1.0  FITTeR 

20  TJ  1 1 U, 1 2 ),  11110  FITTER 

10  I  X  ALJS(R)  FITTER 

12  J  *  MI)  FITTER 

20  TJ  (M,1A),  ISICN  FITTER 

IC  I  *  l.OPS  FITTER 

In  1  «  1.0  FITTER 

All, N32)  x  A(1,NUJ)  »  R  FITTER 

JO  I)  J  -  2,  N  J 1  FITTER 

2  =  Q*S  FITTeR 

M i, j>  x  A(i,j)  ♦  a  fitter 

1J  A(J,NJ2)  >  A(J,H02)  *  Q*R  FITTER 

JJ  20  Kx  2,  N  J I  FITTER 

2  =  Q*S  FITTeR 

20  l(  K,  NOl )  x  Alt, NOD  ♦  U  FITTr.R 

JO  J)  | x 2, N J 1  FITTED 

JO  30  J>l,N.l  FITTER 

A( 1, J)  x  All-1, J»l>  FITTER 

30  CUNT  I R  JE  FITTr.R 

CALL  SJLTE(A,Z,N01)  FITTr. 

it  TURN  FITTeR 

INO  FITTER 


SUBR JUMNA  H20SVP(Tc.MP,LH2U,tlCE) 

h2u EVP 

i 

cc; 

H  2U.5VP 

1 

c 

subroutine  hiosvp  cunputps  rut  saturation  vap^r  pressure  of 

IiOjSVP 

* 

c 

MATER  VAPOR  OVER  A  PLANt  SURFACE  OP  (l)  aATAK  POO  Tilt 

li2ll,YP 

5 

c 

TEMPERATURE  RANGE  F*0M  171.1b  TO  171.1b  ItU  A  (-100  TO  *100 

H  2  U  S  V  P 

b 

c 

OSS  C)  AND  12)  I Cc.  POM  flit.  TEMPERATURE  RANGE  P MOM  171.1b  TO 

II2USVP 

1 

c 

271.1b  USC  K  (-100  ru  0  DSC  C). 

HUueVP 

0 

c 

VALJ ES  ar  ZERO  ASfc  RETURNc.0  POO  THE  PARAMETERS  dDTSlOe.  THE 

H20SVP 

» 

c 

INDICATED  TEMPERATURE  OANSfb  AMD  A  MESSA,t  IS  PkINTcO  IP  THE 

It 2'JS  V  ? 

1  0 

c 

routine  is  Callao  outsiue  the  imoicatao  range. 

M7USVP 

1  1 

cc: 

II20SVP 

1  2 

cc: 

THIS  IS  A  MEM  OiariNE  PJM  WOSCOE-IR. 

H2USVP 

1  3 

cc: 

H2USVP 

14 

c 

THE  FORMULA  USEO  FOR  THE  MATER  REFERENCE  Is  A  THIRD  OtSREE 

HZUjVP 

1  S 

c 

POLS  HUM  1 AL  GIVEN  ST  HEALER  lMt-7b,  t0<l6)>)  AS  AN  APPrJXIMA- 

H20SVP 

1  ■> 

c 

T11N  TO  HIS  EU(lb)  PUR  THE  NATURAL  LOCARITHN  up  THE  VAPOR 

li  2USVP 

1  > 

c 

PRESSURE  (IN  PASCALS)  OP  MATER  IN  THE  RANGE  PROM  0  TO  100 

H2JSVP 

Id 

c 

OES  C  1UT  USED  (ERE  ALSO  IN  THE  E ATrAPOLA TED  RECIuN  FROM  0  TO 

It  ill  j  VP 

l  * 

c 

-100  DSC  C.  THE  SASIC  FORMULA  FOR  THE  ICS  REFERENCE  l>  THAT 

M2USVP 

20 

c 

GIVEN  BV  GOFF  (CQ-bl,  EJO)).  HURtYtR,  TO  SIMPLIFY  THE  COMPU¬ 

M2USVP 

21 

c 

TATION,  NE  HAVE  FITTED  A  SIXTH  DEGREE  POLYNOMIAL  ( E.OE 1 )  TO 

H20SVP 

22 

c 

THE  RATIO  EH  20/E  1,  MHERE  El  IS  THE  SATURATED  VAPOR  PRESSURE 

H20SVP 

20 

c 

OVER  ICE  AS  GIVEN  BV  GOFF  (GO-bl,  ER( b ) ) .  ANO  COMPUTE  SICE 

M?OSVP 

24 

c 

FROM  THE  EXPRESSION  E1CE  -  EH2U/ENOEI. 

HOoSVP 

2) 

cc: 

mROSVP 

2b 

c 

INPUT  PARAMETER 

H20SVP 

27 

c 

TEMP  s  TEMP&RATURc.  (  DeG  X) 

H  Oils  VP 

2b 

c 

OUTPUT  PARAMETERS 

H20SVP 

29 

c 

KM20  *  SATURATION  VAPOR  PRESSURE  OVER  RATER  INILLIBAR  = 

H20SVP 

10 

c 

1000  DYNE/CN* • 2  -  100  PASCAL) 

H2USVP 

31 

c 

BICE  s  SATURATION  VAPOR  PRESSURE  OVER  ICb  (MILLIBAR) 

hOoSVP 

32 

cc: 

II20SVP 

33 

11NENSION  AA(4),B3(7) 

N2JSVP 

04 

cc: 

H20SV? 

Jb 

c 

UEF1N1T10NS  OF  DATA  QUANTITIES 

H20SVP 

3b 

c 

AAi I )  s  COEFFICIENTS  IN  THIRD  DEGREE  POLYNOMIAL  FOR 

HOUSVP 

37 

c 

EH2  0#  GIVEN  BV  MEXLSR  <NE-7»,  EJUoR)) 

H2JSVP 

Jd 

c 

BB(1)  3  COEFFICIENTS  IN  SUTH  DEGREt  PJLYNdMIAl.  E  RUE  1 

hOOSVP 

39 

c 

USED  TJ  PIT  THE  RATIO  EH20/tl,  IN  THE  RANGE  PROM 

m2 OS  VP 

40 

c 

0  TO  -100  OEG  C. 

H2USVP 

41 

cc  c 

H20SVP 

42 

)  AT  A  (  AA(  1  ),1  -1,4)  /  -U.  bOSOb  31  IE  *04,  *0. 040492o004e*02, 

M2oSVP 

40 

*  -0, 19)09 87 4E -01, *0.1281  IB0iE-04  / 

M2USVP 

44 

)ATA  (BH(I),l=l,7)  /  *1 .0009S6S, -9. 7 22)0 l bE-0 3, * b. 21bbbBbE-Ob, 

h  ?osvP 

4  b 

•  -1.9 J2 94b  IE-07,- 1. 2b 2 2bb4E-09, - 1 . 09dl J7EE-1 1 , 

H20SVP 

4b 

•  -l • )b97429E- 1 1  f 

M2JSVP 

4  I 

IU20  <  0.0 

H20SVP 

48 

si ck  3  a.o 

M20SVP 

49 

TTC  *  TEMP-273. 15 

H2JSVP 

bO 

IP(  (TTC. LT. -100.)  .ON.  (TTC. ST.  »t  00.  )  )  GO  TO  40 

H20SVP 

bl 

XH20  3  (AA(4)*TtNP  *  AA()))*TeMP  »  A  A  ( 2  >  •  AKD/TtMP 

H20SVP 

52 

CM  20  :  0 .0 1  *  EXP(  EH20  ) 

H2uSVP 

b  J 

ii:b  3  o.o 

112 IJS  VP 

b  4 

IP(  TTC. GT. 0.0  )  :o  TO  20 

H2USVP 

bb 

1HDEI  3  (( ( ( ( 8B(  7  )*TTC  ♦  B8(b))*TTC  *  8U(b))*TTC  ♦  UU(4))*TTC 

H2USVP 

Sb 

•  *  BB ( 3 ) ) *TTC  ♦  8B( 2) ) *TTC  ♦  BB( 1 > 

H2.ISVP 

57 

I1CC  *  CH20/EMDEI 

H20SVP 

5d 

21 

lETUAN 

H2USVP 

59 

40 

CONTINUE 

M2IISVP 

bu 

•HINT  11,  TEMP 

M2USVP 

bl 

11 

FORMAT  (1H0,67H  TEMP  IS  NOT  IN  THE  RANGE  171.1)  TO  373.1b  DEG. 

H2USVP 

6.’ 

*XKLVIN,  TSMP  3  £14. 6*,  FROM  SUNROUTINE  H20SVP  (FORMAT  11)*> 

H2ilsVP 

b  < 

CALL  EXIT 

h2osvp 

b  4 

CNO 

II20SVP 

6  5 

132 
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so7rjutine  i jnqsu(jj,ah) 

1  UNtl  SO 

2 

cc: 

lUNJS'l 

3 

c 

SUJROUTINfi  IONOSU  PROVIDES  THt  PROPERTIES  UP  THt  AMBIENT 

I.INOSJ 

4 

c 

IONOSPHERE  REQUIRED  UY  ALU  T HE  CHEMISTRY  MUOULc-S. 

IinusD 

s 

ccc 

1  ONUS  1 

6 

c 

2  E  VI  SI  ON  04  (03/0  1/  7  A)  PRUVIDES... 

lUOOSJ 

7 

c 

1.  REPLACEMENT  OP  THt  E-  AND  P-REGIUN  CtNEKIC  MULtCJLAK 

IONOSU 

6 

c 

ION  M*  BY  NJ*,  N2*,  AND  02*,  FOR  kJSCUb-lN. 

IONOSU 

7 

c 

NOPE-  mis  VERSION  OP  13N3SU  IS  STILL  L14ITE0  IN  THAT  THE 

IONOSU 

10 

c 

PkOPILES  OP  IONOSPHERIC  PROPERTIES  AML  R LPREStN T AT I V E 

KINDS  1 

1 1 

c 

BUT  NOT  NECESSARILY  THE  PINAL  SELECTIONS. 

IONOSU 

1  2 

c 

REVISION  OS  (36/27/79)  PROVIDES... 

1  JN.JS!' 

I J 

c 

2.  CAM(I)  SPECI P I CAT1 ON  BY  FORTRAN  STATEMENT  INSTEAD  OF 

IONOSU 

I  4 

c 

DATA  STATEMENTS,  UNING  TO  A  REVISE)  CONCEPTUAL 

IONUjU 

IS 

c 

DEFINITION.  NOTE  THAT  SAM(l),  NlTri  1=1,4,  ARE  NON  A 

ION  IjU 

lo 

c 

FONCTION  JP  ALTITUDE. 

IONOSU 

17 

ccc 

ION JS  J 

la 

c 

THE  E-  AND  F-RgCIJN  CHEMISTRY  MuDULE  REQUIRES... 

lUNOSU 

1  7 

c 

(I)  Q(1/(CM**3  SEC))  =  EF  2  ,  THE  EFPECTIVE  TOTAL  ION 

IONOSU 

2D 

c 

PRODUCTION  RATE  THAT  REPRODUCES  THE  AMBIENT  IONOSPHERE 

I  ON OS J 

21 

c 

WHEN  USED  NITH  THE  CHEMISTRY  MODEL. 

IONOSU 

22 

e 

(2)  0*{1/CN*»3)  =  EFOP,  THE  POSITIVE  ATONIC  ION  DENSITY. 

IONOSU 

2  3 

c 

(3)  NO»( 1/CH**3)  =  EFNOP,  THE  NO*  MOLECU.AR  ION  DENSITY. 

IUNOSU 

24 

c 

(4)  N2*(  l/CM**3)  =  C.FB2P,  THE  N2*  MOLECULAR  ION  DENSITY. 

IONOSU 

2s 

c 

(S)  02*( 1/CM**3)  =  EPJ2P,  THE  02*  NULECUu AW  ION  DENSITY. 

IliNOsU 

26 

c 

(6)  TKIDfiG  A),  THE  ELECTRON  AND  N2  VIBRATIONAL  TEMPERATURc.. 

I  ONUS'! 

27 

cc: 

IONOSU 

2B 

c 

THE  D-REGION  CHEMISTRY  NODULE  REQUIRES... 

IONOSU 

27 

c 

(I)  (H 1 / (CM* *3  SEC))  =  OQ,  THE  EFFECTIVE  TOTAL  10M  PRODUCTION 

IONOSU 

3D 

c 

RATE  THAT  REPRODUCES  THE  AMBIENT  IONJSPHSKE  NHEN  USED  NITH 

IONOSU 

31 

c 

THE  CHEMISTRY  MODEL. 

lONOsU 

32 

cc: 

IONOSU 

33 

c 

INPUT  PARAMETERS 

IONOSU 

34 

c 

argument  LIST 

IONOSU 

)S 

c 

JJ  -  CA.CULAT1JN  FLAG 

lONOsU 

36 

c 

»  1,  CALCULATE  INITIALIZATION  PARAMETERS 

II  NOSU 

37 

c 

=  2,  CALCULATE  ATMOSPHERIC  PROPERTIES 

IONJSU 

3  H 

c 

ZH  -  ALTITUDE  OF  INTEREST  (KM) 

IuNUsU 

37 

c 

ATNOUP  COMMON 

IONOSU 

40 

c 

1U0RN,  SNt(t  ),  SNI  (2),  SNU3),  SN1  ( 7),  SNl(B),  TT 

IONOSU 

41 

c 

ALTOON  COMMON 

IONOSU 

42 

c 

ALTK  M(  47) 

IUNUsU 

43 

c 

RATCOF  FUNCTION 

IONOSU 

44 

c 

RATCtlF 

IONOSU 

4S 

c 

ZHCHEI  CUMnON 

IONOSU 

46 

c 

zhfla: 

lUNuSU 

47 

c 

OUTPUT  PARAMETERS 

i  unosi; 

4  S 

c 

ATNOUP  COMMON 

lUNMSJ 

47 

c 

SNI(7),  SNI  (  ID  ),  SNl(ll),  SNI  (  1  2),  SNil/H), 

lOn.ljU 

SU 

c 

SNI ( 27) 

1  0«\l  su 

SI 

c 

10N0DP  COMMON 

1  ON  iSU 

S  2 

c 

EFE,  EFOP,  tFNOP,  EFN2P,  EF02P,  TA,  JOEF 

ION  IS  1 

S3 

c 

VARIABLES  14  IJNuUP 

K.N.,  SO 

S  4 

c 

EFEsSNK  7)  -  ELECTRON  DENSITY  IN  b-  AnD 

1 ONOSU 

Ss 

c 

f-recion,  i / cm* • ) 

KINOSJ 

Si» 

c 

EFOP  =  SMI  ( 10 )  -  ATOMIC  JYYJEN  UH  JtNilT*  In  t-  AnU 

1  u.ll  Jtl 

S  1 

c 

f-kecium,  i/cm**j 

IOmOS J 

so 
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EFNQPxSNIlll  )  -  MOLECULAR  1UN  OENSITV  IN  t-  AND 

lO.ll.VJ 

so 

F- REG ION#  l/CM**3 

1  IlNLjSU 

bD 

£rN2P=SNI(2d)  -  N2*  MULtCULAR  ION  OENSIT V  IN  E-  AHU 

lLRUjll 

61 

F-RECION#  I/CM** J 

IUNOSU 

62 

EFQ2P=SNll 29 )  -  02*  MOLECULAR  ION  JEiSITV  IN  E-  AND 

1 IINIISU 

6) 

F-RECIUN#  l /CM* • 3 

IUNOjJ 

64 

Tl-SNI( 12)  -  ELECTRON  AND  N2  VISRATIuNAL 

iUNOJU 

6b 

temp ekacuhe#  deg  a 

UJnUS'I 

6  j 

aOEF  -  EFFECTIVE  TOTAL  ION  PRODUCTION  HATE# 

IUNOSU 

t>; 

1/(CR**J  SEC) 

lLJftki->U 

6  d 

zucuex 

COMMON 

IUNOSU 

6  9 

ZMFLAG,  SP1FLC 

IUNOSU 

70 

lONOSU 

71 

THE  UUAXTITIES  REIUIRED  FUR  THE  E-  AMU  F-REGIOM  IUMUSPHERIC 

lUNUSU 

72 

CHEM1STHT 

IN  R3SCJE-1N  ARE  OBTAINED  UK  A  NATURAL  EXTENSION  OF 

lUNOS’l 

73 

THE  NET  HOD  USED  PJH  ROSCOi -RAO  Ail  (SEE  TKi  KOSCJe  MANUAL# 

IUNOSU 

74 

DMA  A964F-14A#  PAGES  67-74).  THE  PRINCIPAL  CHANCE  IS  A  CHANCE 

IlJRU  jli 

7s 

FROM  THE  1 

CENEfii:  MULEC ULAN -ION  M»  TO  NO*#  m2*,  AND  02*. 

IUNOSU 

7b 

THE  RE 2 J 1  RED  QUANTITIES  ARE  OBTAINED  AS  F QLLUHS.  » • 

IUNOSU 

77 

(i)  era 

IS  COMPUTED  FROM 

IUNOSU 

7  a 

era 

•= 

EFE*EFE/(HIGA*BI  CH  *C  AM(  i)/FACTN) 

IUNOSU 

79 

nhere 

IUNOSU 

BO 

epe 

= 

ELECTRON  OENSITV  PROVIDED  AS  INPUT  DATA  TU 

IUNOSU 

81 

IUNQSU  < I/CM*  *] ) 

iORUjU 

82 

BICA 

= 

AP*CP*CAM(3)/A2UEN  «F  ACT  A  J*GAM(  4  ) 

iQnijsu 

d  3 

BIGS 

= 

bp»fa:taj*bet4i 

IUNOSU 

84 

rAcra 

s. 

BE  T 1 1  •  AL  P 1  *  EF  E 

iUNiiso 

8b 

AP 

= 

GAM(I)/ALP2»CAM( 2)/ALP2»CAM( 3)/ALP3»CaM(4)/aLP4 

IUNOSU 

8b 

BP 

x 

BET21*II./ALP2-l./ALPl>»HET41*U./ALP4-l./«LPI) 

IUNOSU 

87 

CP 

X 

BET23* ( 1 ./ ALP2-1 ./ ALP3 ) 

IUN.1SU 

88 

DP 

= 

EbT24*(I./ALP2-l./ALP4) 

IUMUS'1 

89 

A2  OEM 

= 

BET23*ALPi*EFE 

IUNOSU 

90 

AiDEN 

= 

9ET24* ALP4*EFE 

IUNOSU 

91 

FACTA3 

X 

DP/ AIDEN 

IUNOSU 

92 

ALP1 

X 

EFFECTIVE  TN0-B3DV  C OU I S 1  ON AL- R ADI  ATI VE 

IUNOSU 

93 

RECOMBINATION  RATE  COEFFICIENT  FOR  ATONIC  IONS 

IUNuSU 

94 

= 

RATCOF  (  1 0#  TX  )  ♦  RATCOFI  I1#TX)*aFE  *  I.SE-07* 

IUNOS  1 

9b 

SURT{EFE)/TX**3 

lUNUoU 

96 

NHERE  RATCOF(I,T)  IS  THE  FUNCTION  ROUTINE  FOR 

IUNOSU 

97 

E-  AND  F-REGIJN  lUNJSPdtKlC  RATE  COtFFICIENTS 

IUNOSU 

98 

ALP? 

= 

DISSOCIATIVE  MEC0M3I NAT  ION  RATE  COEFFICIENT  FOR  THE 

ION  JSU 

99 

REACTION  (NO*)  ♦  t  =  PRODUCTS#  CH**i/SEC 

UN, liU 

100 

= 

RATCOF (2,TX) 

l.JN'ISU 

101 

ALP3 

= 

DISSOCIATIVE  RECOMBINATION  NATE  CJtFFlCIENT  FJH  THE 

ION  ISJ 

10? 

Reaction  in?*)  ♦  e  -  products,  cm**3/sec 

10.4  IjU 

103 

= 

RATCOF(J,TA) 

ION. ISO 

104 

ALPS 

= 

DISSOCIATIVE  KECQMHl NATl ON  MATE  COEFFICIENT  FOR  THE 

IONOV! 

mb 

ReACTIUN  ( 02* )  *  t  -  PRODUCTS,  CM»»]/SeC 

1  ON tj  Jtj 

loo 

= 

RATCOFI l#TX) 

IJNujJ 

10  I 

SET21 

RATCOFO#TT)*SN1  u  )  1 1  /  S  F.  C  ) 

1  In  IS" 

103 

Sg  T2  ) 

= 

RATCOFI /,TT)*SNl (3)  (l/StC) 

ION. IS  1 

l  0  P 

Ntr?4 

- 

RATCOF (d, TT)*SNII7)  ♦  N A TC OF  1 9, TT ) •# MI  I « )  (I/jEC) 

I  IIN.Ij'f 

J  1  J 

8ET41 

= 

RATC0Fl4,rT)*SNlI2)  Il/btC) 

iilNOSU 

111 

SET11 

= 

BET21  ♦  Br.TNl  II/SEC) 

lONOSU 

11  ? 

GAN(I) 

= 

relative  ef^iciencv  Per  particle  ifjr  o,  »j,  *?, 

1  On  i ju 

1 .  3 

AND  02  For  1=1,2, 3, 4)  10  OET.-.kM  INIne  THE  e-  AND 

1  UN  IjJ 

1  1  4 

F-REGUn  EFFECTIVE  ION  PRODUCTION  NATc. 

1  UN'IS  l 

lib 

1  3^ 
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matcjfO/TT)  s  litre  coefficient  run  the  ittcnui 

lONllS'l 

ill. 

c 

0*  i  II  s  N0»  »  N(4S) 

IJNlljU 

117 

c 

atrcuF(6,TT)  *  litre  coefficient  f on  the  reaction 

UNJSU 

11  J 

c 

a*  *  02  =  32*  »  u 

1  JNJSI' 

11  I 

c 

iitrc(jr(T,rr>  =  utre  coefficient  ruu  the  reaction 

10N0SU 

120 

c 

N2*  ♦  0  s  NO*  »  N(2D) 

1QMOSJ 

121 

c 

Rtr:uF(d,TT)  -  NtTE  COEFFICIENT  FOH  THE  RtACTlON 

lOHOSU 

122 

c 

32*  ♦  b(4S)  =  NO*  ♦  U 

lONoSU 

121 

c 

RtrcurO/TT)  ^  rate  coefficient  for  the  utter  ion 

iOklisU 

124 

c 

02*  ♦  NU  =  NO*  *  32 

IoNiiSU 

12S 

c 

SNI(l)  S  N2  CONCENTRATION 

i on jsn 

12b 

c 

SNI 12)  =  02  CONCS  NTRtTION 

KINOSJ 

l  21 

c 

SNKJ)  a  U  CONCENTMtTlON 

lUNuSU 

12B 

c 

SNI (7)  a  R  CONCENTMtTlON 

IIINJSU 

129 

c 

SNUB)  a  MO  CONCENTRATION 

lONOSU 

DO 

c 

(2)  EFOF  IS  COMPUTED  FHOM 

lORuSU 

111 

c 

EFOP  a  Ct<i(l)*EFi)/FtCTQ 

IONIISU 

1 J  2 

c 

(3)  EFn2P  IS  COMPUTED  FROM 

IOMOS'1 

Di 

c 

EFN2P  a  GtN(  1)  *EF3/A  20EM 

10N0S  1 
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(4)  EP02P  IS  CONPJTtU  PM  ON 

IONIISU 

13s 

c 

EF02P  a  (CtM(4)*EFQ*BLT41*  EF3P  )/ tiUEN 

lONUS'J 

13o 

c 

(S)  EF NOP  IS  CQMPJTSO  PRON 

10NOSU 

D7 

c 

EP NOP  a  (CAN(2)*tFU* Bt T21*EF3P*NET23> tFM2P*BET 24*tF J2P )/ 

IUNUjU 

1  IB 

c 

(ALP  2*  EFK ) 

IONIISU 

13* 

c 

(6)  TI( DEC  K)  IS  COMPUTED  FM04  AN  iNTEnIN  PNE SCN 1 P Tl ON . 

lONJSU 

140 
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lONJS'l 

141 

c 

ELECTRON  DENSITY  PROFILES  POM  NOMINAL  NlJLtTlTJUE  D.YTIME  AND 

loNOSII 

142 

c 

NICHTTIME  CONDITIONS  IN  THE  E-  ANU  F-NEulONS  ARE  PMONlOtO  AS 

1  JNIlSU 

14  3 

c 

IPPiiQI  IMATE  FITS  TO  CURVES  IN  FIS.  1  OF  H.  RISHHETH,  PHVSICS 

10M0SU 

144 

c 

ANU  CHEMISTRY  OP  THE  IONOSPHERE,  COMTEMP.  PHVsICS.  VOL.  14, 

lU.YUjU 

14S 

c 

P.  229(1973)  (Rl-73). 

lONJSU 

14b 

cc: 

I ONJSU 

147 

c 

FOH  OAVTIME  ELECTRON  DENSITY... 

IONISJ 

I4B 

ccc 

lUNOSU 

14) 

c 

ASSUME  PARABOLIC  INCREASE  IN  LOG  OF  ELECTRON  DENSITY  FROM 

lOR'JSO 

ISO 

c 

ALOSlO(eaOTO)  a  5.0  AT  ALTITUDE  HEBOTD  =  100.0  AM  TU 

IDNlJS  1 

IS1 

c 

AL0C10( EP2MX0)  a  ALOC10( 7. 5t*0 5)  AT  ALTITUDE  HF2MAU  a  300.  AM, 

lUHOsU 

IS  2 

c 

FOLLUMEO  AT  H ICR ER  ALTITUDE  BY  EXP JNENT1 AL  DECREASE  a  1 TH 

lONJSU 

ISU 

c 

SCALE  HEIGHT  P2ISCH  a  200.  KM.  3 tLOH  ALTITUDE  HEBOTD,  ASSUME 

lONJSU 

IS4 

c 

IKPJNtNTIAL  DECREASE  NITH  SCALE  HEICHT  LJOSCH  a  5. 0  KM. 

IIINJSU 

1SS 

c 

IONIISU 

1  So 

c 

IFiXil. GT. HP2MXD)  EF  E  a  CF 2MXU "tt Pl( HF2M1 D-XH)/ F2DSCH) 

IONIISU 

IS  / 

c 

IPUH.SE.EHUTD  .AND.  £H.  Lt  .HF2MXD) 

IONIISU 

ISU 

c 

EPE  a  EF 2MXU* 10. ••(EFtA*(HP2MXD*£H)**2) 

IONIISU 

ISU 

c 

RMEKE  THE  COEFFICIENT  EFEA  IS  UETEMM1NEU  SO  THAT  LEE  a  EH.) TO 

1JNOSU 

lbO 

c 

AT  ALTITUDE  HER 3 TO, 

IlJNOSU 

lb  1 

c 

I.E.,  EFEA  =  ALOG1 0(  EaUTO/ EP  2MX D)  / ( HF 2NX J  -He.UUTU)**2 

10m  JiU 

162 

c 

NITH 

i'JNOS  1 

loU 

c 

MF2MKD  a  ALTITUDE  OF  F2MAX  IN  DAYTIME,  KM 

ION  ISU 

164 

c 

EF2MK0  a  ELECTRON  DENSITY  AT  F2MAK  IN  DAYTlMe,  l/:i**3 

IIINJSU 

1  (1  s 

c 

EBOTD  a  ELECTION  DENSITY  AT  HEJUTI),  l/CM**J 

luN  ISU 

1  bo 

c 

IFUM.  LT.HEJOTJ)  EF  E  a  Ed  OTD*  EXP  I  UH-Mt  UUTU)  /  EDUSCII ) 

IIINJSU 

Ib7 

cc: 

lONJSII 

Ibd 

c 

FOR  NIGHTTIME  ELECTRON  DENSITY... 

lONilsU 

16  » 

cc: 

1 onus  ■ 

170 

c 

ASSUME  SINUSOID  IRCREASt  IN  LIC  OF  ELECTION  Dr-dlTY  FROM 

U*  JS't 

171 

c 

ALJGIO(eHOTn)  a  3.0  AT  ALTITUDE  He  BOTH  a  100.  Am  TO 

lONJSU 

172 
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IL0C10UF2MXN)  *  ALUG10(  M.0E»95)  AT  ALTITUDE  HF2MXN  =  J60.  KM, 
rO.LURED  AT  IIICHER  ALTITUDE  BY  EXPUNKNTlAL  DECREASE  M 1  TH  SCALE 
HEIGHT  F2NSCI1  *  290.  KM.  BELUN  HEUUTN,  ASSUME  LAP JNENTiAL 
DECREASE  MITH  SCALE  HtlSHT  EOMSCH  -  b.O  KM. 
iF(ZH.CT.hF2MXN)  fcPE  *  EF 2* I* *EXP ( ( HF2M1 N-ZHJ/F 2NSCH) 
IFUH.UE.EBUTN  .AND.  ZH. LE .HF2NXN ) 

AL)CIO(EFE)  =  ALOC10(E8JTA  )  ♦  0. SO *AL0C1 9 ( tF2 MAnFE BUTN ) 

*  (t .0»SIN(PIJ2* (2.*ZH-HEBUTV-HP2NKN)/ 

(UF2NIN-HEB JTN ))  ) 

IFUH.LT.HEBOTN)  EFb  *  Ei UT N»  EXPU ZH-HEH UT  I ) /  tDNSCH  ) 

ELECTRON  TEMPERATURE  PKJPll.ES  IN  THE  E-  AMU  P-HECIOR  ARE 
9BTAINED,  FUR  (NOUN)  UKYTINE  CONDITIONS,  BY  PRESCRIBING  T it E 
DIFFERENCE  BETNEEN  THE  ELECTRON  TEMPERATURE  TK  AND  THE  CAS 
TEMPERATURE  TT  AT  THU  ALTITUDES  AND  US1NL  A  PAKABULIC  FIT 
TO  THIS  DIFFERENCE.  FOR  NICHTT1NE  CONOiriuiS,  RE  ASSURE  TA-TT 

FOR  DAYTIME  ELECTRON  TEMPERATURE... 

ALTITUDE,  KM  TA-TT,  UEC  A  TT(C1HA-6S,  HOUEL-S,  H-HK> 

129  0  =  TIT  120  J35 

200  500  =  TAT  200  9JJ 

THESE  VALUES  OF  TA-TT  ARE  CONSISTENT  NITh  THE  VALUES  OF  TX 
REPORTED  BY  J.f.  EVANS  (MILLSTONE  HILL  THOMSON  SCATTER  RESULTS 
FOR  1966  AND  1967,  PLANET.  SPACE  SCI.  VJL.  21,  PP.  7t>3-7vi 
(1970),  (EV-70))  AND  THE  C1NA-14oS  MODEL-S  N-HR  ATMQSPRERE 
(C1-6S). 

IFUH.LT.120.)  TX  s  TT 
IFUH.SE.120.)  TIT  -  SORT  (  ZNM120/A  ) 

RHINE 

ZHN120  s  ZH-120. 

A  *  HO.  /  500. «»2 

THI  REQUIRED  UU  ANT  IT  V  FUR  THE  D-RECIUN  CHEMISTRY  IS  OBTAINED 
AS  FOLLUMS... 

DU  IS  FUHCEU  TO  Eu UAL  THE  VALUE  OF  EFU  AT  THE  BJTT1M  OF  THE 
CHID  (90-KM)  AND  IS  DETERMINED  BY  INPUT  9ATA  AT  LUMtK 
ALTITUDES. 

NOTE  ...  WOEF  2  DU  OH  UOEF  =  EFU  DEPENDING  UN  THE 
ALTITUDE  IN. 


FUN  DAYTIME... 

IFUH.LE.60.  ) 

DU  r  UQUAY(  7  )  •  Oil  I J  07  »•  (  ZHNZ07/ZI  J  MD  I  ) 
90  I  JO  7  =  UUUAYd  3|/UUDAY(7> 

ZHNZ07  =  Zlt-ALTKM(7) 

ZllMOJ  =  ALTKMU  J0-»LfAH(7) 

IF(60..LT.ZH  . AvD.  ZH.Lf.90.) 

ou  =  uonttujj  •  uni  9i  j«»uhvzi  j/zi  9mi  jo 

uomi  -  c.F«tzi 9/o,niY( u) 

ZMMZ1J  =  ZH-ALfAH(IJ) 

II  4Nl  J  s  ALTKMU  9)-»LfM(l  J) 
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IUNUSU 
lUNUsU 
1UNII.U 
IUNUSU 
IUNUSU 
IUNUSU 
KiaJSU 
I  LINUS  J 
JUNUdU 
IUNUSU 
IUNUSU 
IUNUSU 
IUNUSU 
lUNUSII 
1  ONUS J 
IUNUSU 
IUNUSU 
IUNUSU 
IUNUSJ 
IUNUSU 
1  tJMUS'l 
IUNUSU 
IUNUjU 
IUNUSU 
IUNJSU 
IUNUSU 
HUNUS'I 
IUNJS I 
lUNUS’l 
IU.i'JoU 

IUNUSU 
lilNI.SU 
I  Oti J  >U 
IUN.I..J 
I  UN  IS'I 
IUNJS I 
1  UNuS'.t 
IUN  UU 
lUNUSII 
lONuSU 
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inp^nmpinM  j  i  i 
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lost  511 

tso 
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IFUH.LE.60.  ) 

AUMUsU 
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DR  =  Dumni)  •  u»1107**(ZdMZ07/ZllNu7) 

iua'ls  l 

.'1/ 
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onijoi  s  oQuira Ji/uQiiif (?) 

lilNh  i  1 

711 
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1  jN.ijH 

,14 

c 

IF(»0..LT.Zii  .MO.  ZH.LT.90.) 

1 JaUSU 

2  1  9 

c 

OR  =  DQNIT(H)  *  UNI 913**(ZHMZll/Zl9Mll) 

lUNwiU 

.»  (• 

c 

ON  191 3  :  bPUZ19/D0NlT(ll) 

lUMUsU 

R17 

cc; 

ION.IsU 

,1 J 

)I MElSl IN  Gl!t(4) 

1 JN  ISO 

R19 

7IMENSI3N  DUDAY(18),DQnIT(18) 

IUNIISU 

24u 

COHMJN/ALT JON/  ALTKM( 47),ONITE(18),C02(25),,1ZOJ 

KiiMMOl 

2 

COHN  IN/ A TN UUP/  ML, Si  AN  ,1  DURN,P  P,  RH  Q,  TT,SN  M  19  ),  HMHQ,F£IISER 

KUNH12 

R 

:0NN3N/t  ONJUP/  EFE,  iFOP,EFNOP,EFN2P,LF,U2P,TI,yOtF 

KOnN04 

2 

CUNm3N/ZHCH£X/  ZMPL AG,SP IFLG 

KUNNJ9 

2 

cc: 

IONOSU 

24  5 

1ATA  LB  UTO, HEBOTD, SF2  MX  D,HP2MXD,F2DSCll,£DDS:ri  /  1.  OE*  05,  1. 0£*02, 

1UNOSU 

246 

•  1.0E»05,  3.  OE *0  2,  2.0a  *0  2,  5.0  / 

IONOSU 

247 

1ATA  EbOTV, HEBOTN,bF2 MX  N,HP2N XN,P  2NSCH, EUNSCH  /  l.  0E»03,  1. 0£»02, 

IdNUSU 

248 

•  4.9E»95,1.6E»02,2.0£«92,5.0  / 

IUiOS'1 

249 

ia r a  riri20,rxT2oo,rtrdOo  /  o.o,s.0£*o2,i.8i*oi  / 

lUNilSU 

25  9 

BATA  PI  /  3.141592651590  / 

lUMUsU 

251 
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INTERIM  VALUES  96/10/75 

lUNOsU 

252 

IATA  (ORDAY(I),  1-1, lB)/6*0., 1.3, 5*0. ,0.06, 5*0./ 

i  jnos:i 

251 
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INTERIM  VALUES  Ob/ 10/75 

IONOSU 

25  4 

1A t A  (OONiril),  1  =  1, lH)/6*0., 3. 3, 5*0. ,0.06,5*0./ 

1UNUSU 

25  5 

ccc 

IONOSU 

256 

:o  TJ  (100,200),  JJ 

10NUSU 

257 

c 

INITIALIZATION,  CALLbll  PROM  SJbHQUTINE  AfNUSU  0UK1NC  ITS 

IONOoU 

258 

c 

INITIALIZATION. 

10NIISJ 

259 

10) 

:ONTIN9E 

10NIISU 

260 

*102  =  PJ/2. 

lUMJS'J 

261 

92PM02  =  0. 50*(HP2NK  N»HEHOTd ) 

IUNIISU 

262 

N2NU02  =  0.5O*iHF2NXN*HE8OTM) 

I  ON  US  II 

261 

ALC201  =  0. 50* ALOGIO ( EF2NXN/ EH  UTN) 

IUNIISU 

2o4 

(PEA  =  ALOSI 0( EUOTO/ EP 2NXU )/ (HP2NXD-4EBUTU)** 2 

lUNUsU 

26S 

A  =  80.  /  (500. *500.) 

IONOSU 

26o 

c 

INITIALIZATION  FOR  0-UECI3N  a... 

iLlaJSl) 

267 

c 

CONFUTE  ELECTRON  TEMPERATURE  AT  90-XN  ALUTUOt 

IC1NUSJ 

26  d 

TX  =  TT 

lUNJiU 

26  9 

IP ( I33RN .LT. 0 )  CO  TO  150 

lONOS'J 

270 

c 

COMPUTE  OAVTINE  ELECTRON  OENSITV  AT  90  KM 

Iuniisu 

271 

(P  E  *  ENUTO  •  EAPC  (90.-HeNJTD)/EU0sCM) 

IUNUjU 

27  2 

JO  TO  110 

IONiISU 

271 

c 

COMPUTE  NIGHTTIME  ELECTRON  DENSITY  AT  90-KN  ALTITUDE 

IUNIISU 

274 

15# 

IPE  «  1MUTM  •  EAP( (90.  -  HEiOTN) /EDNSCH ) 

1JNIJSI 

275 

ISO 

ALP1  *  UATCOP(IO,TX)  ♦  RATCUP ( 1 1, TX) *EPE 

IUNUS'1 

276 

$  *  1.56*07*  SORT ( EPe )/ TI •• 3 

IONOSU 

277 

ALP2  =  MATCOP(  2,TX) 

1  ONUS J 

278 

ALPJ  =  RAT  COP  (  i,TX ) 

luNUSU 

279 

ALPS  *  RATCUP(  4,TX) 

IUNIISU 

2HO 

ccc 

IIINOSU 

28 1 

Set  SPIPLC=2.*ZM  SO  THAT  A  CALL  TO  SPCNIN  mill  LET  SNl(7> 

10N0SJ 

282 

AND  SSKS).  ALSU  StT  ZMPLACxZH  SO  THAT  AN  UNNECESSARY  CALL 

lUNuSJ 

2d  1 

MILL  NOT  BE  NAOE  TO  ATNJSU.  THE  CALL  "CALL  ATM JSUA 2, 90. 1  *  * 

iiiNusn 

2><4 

MAS  EFFECTIVE  »  BEEN  MA9E  DURING  THE  INITIALIZATION  CALL 

IONOSU 

285 

TO  ATNOSU. 

lONUaU 

286 

137 


ccc 


1 

i 


CCC 

lOMOaU 

2rt  / 

CBFLAG  s  ZH 

lUNUS'J 

H 

IPiPLC  a  ZH*ZB 

lONMS'I 

2H  ) 

CALL  SPCMINI  2/Zii) 

lUNUaU 

290 

1ET21  a  kATCOK (  5,rt)*S»l(l) 

I OHOS J 

291 

isrzi  a  hatcufi  7,tt)«snM3> 

IUNOSU 

292 

»tT24  <  KATCUFI  B,TD*  Sk  I(  7)  *  NATCUFC  9,TT)*5Nl(8) 

IUNOSJ 

293 

ieT4i  a  lurcurt  6,rr)»iaic2) 

IUNOSU 

29  4 

1ET11  a  BET21  ♦  BET41 

ION  ISO 

275 

11  a  SVI  (3  ) 

I ONOSU 

29o 

A2  a  SN 1 (8) *2. 

lOHJsU 

297 

13  «  SMI (1 ) *  2. 

IUNUSJ 

29B 

14  a  SMI (2)*2. 

IUNOSU 

299 

SAI  a  U  ♦  12  ♦  A3  *  14 

IJNuSJ 

300 

SANd)  a  Al/SAI 

lUMOaU 

301 

CAK2)  a  A2/SA1 

ION  OS'I 

30  2 

IAN<3)  a  A3/SA1 

IONOSJ 

30  3 

6AN( 4)  a  14/Sli 

IOmUSU 

JO  4 

AP  a  CA4(1)/ALP1  ♦  GAM(2)/ALP2  ♦  CAM(3)/ALP3  ♦  C1M(4)/ALP4 

IUNOSU 

JO  5 

IP  a  BE  T2 1  •(  1  .0/ ALP 2  -  1.0PALP1)  »  BET41*(  1.0/1LP4  -  1.0/ALP1) 

lOaoSU 

306 

CP  a  BET23M 1.0/1LP2  -  1.0/ALP3) 

IONOSJ 

30  7 

3P  a  BET24*(1.0/ALP2  -  I.O/ALPO 

lUNOsU 

30(3 

120EN  a  BET2J  ♦  ALPi*£PE 

I  UN  OS') 

jO  9 

13DEI  a  BET? 4  ♦  ALP4«EFe 

lUNjSti 

310 

FACT A3  a  OP/AJULN 

I ONOSU 

311 

I1CA  =  IP  ♦  CP*UAM(3)/A2DEB  ♦  PACT A3*CAN( 4 ) 

IUNOSU 

31  2 

11 CB  a  IP  •  PACT  A3*S  ET  4 1 

1 ONOSU 

313 

picra  a  kru  »  alpi*efe 

IUNOSU 

J14 

1P3Z19  a  EFE*EPE/(SICA  ♦  B1CB*GAM(1>/FACTQ) 

IUNOSU 

31  5 

1 P ( IDORN.LT.O)  CO  TJ  190 

IONOSJ 

316 

301913  a  EPQZ19/DU01V(13> 

IUNOSU 

317 

301307  a  oaOAV(13)/DaOAT(7) 

IUNOSU 

31  B 

SO  T3  195 

IUNOSU 

319 

191 

9B1913  a  EFJZ19/DQNIT( 13) 

IOMUSU 

320 

3* 1 307  a  DQN1T(13>/JNNIT(7) 

IUNOSU 

321 

195 

CONTINUE 

lONISSU 

3  2  2 

Z19N13  a  ALTKMl 19 )- ALT KNI 1 3 ) 

lUaOSU 

32  J 

11 3M37  a  ALTKMI l3)-ALTKrt(7) 

IUNOSU 

324 

iltUII 

IUNUSU 

J25 

CC 

IUNOSU 

32  o 

CC 

I ONOSU 

32  7 

200 

CONTINUE 

IUNOSU 

32o 

IP(  ZU.ME.ZbPLAC  )  CALL  ATNUSUt  2,  ZB) 

lONOSU 

J2  9 

CCC 

UlNJa'I 

330 

C 

IB  SkkUNEOUS  CONOl  TION  a  ILL  OCCUK  IP  IUNJSU  IS  CALLED  WITH 

IONOSJ 

331 

C 

JJ*2  AMU  A  GIVEN  VALUE  OP  ZH  IP  ATNuiU  HIS  NJT  LEeH  C1LLEU 

lUNOsU 

332 

C 

FIRST  MITH  JJa2  AMO  PJH  TIE  SAME  VALUE  OP  otl. 

IUNOSU 

333 

c 

THE  VtHI ABLE  ZHPL1G  IS  USED  T3  DETECT  THIS  CJNOITION  AND 

IJN  iSII 

334 

c 

TO  MAKE  THE  WtJUlHEO  CALL  TU  ATHJSU. 

1 JNOS  1 

33  a 

c 

ZHPLAG  IS  INITIALIZE  TO  AN  ARBITKAKY  NEGATIVE  VALUE  IN 

l.JNl  aU 

33a 

c 

THE  INITIALIZATION  CALL  TJ  ATMOSU. 

lUnljl 

33  7 

ccc 

1JN  1  ad 

333 

IPIZH.GE.90.)  GO  TO  205 

1 ONUaJ 

339 

c 

SET  ELEC  THUN  TEMPERATURE  POM  lrt.LT.90. 

IUNOSU 

34  0 

(1  a  Tf 

I  UNO SU 

341 

c 

ZcR)  EPE,  EFOP,  AND  EPHJLP  FOR  ZU.LT.90. 

1  JO  IS  1 

14  2 

IPS  a  EPUP  r  EPMOLP  a  0.0 

1  JNOS'I 

34  J 

138 


u  u 


c 

proceed  mith  oa  calculatur  ran  zh.lt.90. 

IOnUjJ 

j4n 

irilOJaM.LT.O)  CO  TO  150 

i  Jkis:i 

145 

c 

con?  or s  daytime  oa 

losrisu 

14  5 

1P1ZH.LS.60. )  CO  TO  125 

lllfcujU 

141 

c 

COMPUTE  UAVTIME  Oa  POM  60. LT. ZH.LT. 90. 

IJMJS't 

14U 

1HMZ11  x  ZH-ALTKM(IJ) 

lONtiSU 

149 

IQ  =  OODAY(li)  *  901911**(ZtiHZlJ/Zl9NlJ> 

1  U«U,ll 

ISO 

SO  TJ  1H5 

lUxOSU 

151 

J2» 

Joannas 

IONUSU 

16  2 

c 

COHPUTS  D4TTIM8  09  POK  ZH.Lt.60. 

1060S  J 

161 

ZHHZOT  *  ZH-ALTKN17) 

1U6U..U 

164 

9Q  »  090AV(7>  •  QU1 107  **(  ZHNZ0  7/Z1  3M07) 

1 UkOsU 

155 

SO  13  115 

1060SU 

16b 

iSl 

ZOlTlHIlt 

lUNloU 

15  7 

c 

COMPUTE  HICHTTlit  09 

IONUSU 

l6« 

1P1ZH.LL.60.)  CO  TO  175 

1  ONUS'! 

169 

c 

COMPUTE  NIGHTTIME  09  POM  kO.LT. ZH.LT. 90. 

1UN0SJ 

160 

(HHZ11  *  ZH-ALTKMl 1 1 ) 

KikUSU 

161 

)Q  >  OaHITUI)  •  QM  1911**1  ZMMZ 1 J/Z 19N1 1 ) 

IONUSU 

16  2 

SO  T3  105 

IONUSU 

l6l 

J7» 

:oiriNiit 

lUNUsU 

164 

c 

COMPUTE  NIGHTTIME  09  POR  ZH.LS.60. 

IONUSU 

165 

1HMZ37  *  ZH-4LTKN1?) 

IONUSU 

166 

79  x  09N1T17)  •  8M1307 ZHMZ07/Z1  3M07) 

IONUSU 

167 

185 

SUSP  x  09 

1UMUSJ 

168 

sail  9)  =  o.o 

lOkUSU 

169 

lauio)  x  o.o 

lUMOSJ 

170 

sail li >  x  o.o 

IONUSU 

171 

SHI112)  x  rs 

IONUSU 

17  2 

iait i»i  x  o.o 

1U6US3 

171 

iall29)  x  o.o 

IONUSU 

174 

16IURH 

AONUjU 

175 

cc; 

1UNI1SU 

176 

20i 

in  ioirh.lt. o  )  ci  to  250 

IONUSU 

177 

CCS 

IONUSU 

17  8 

c 

COMPUTE  DAYTIME  ELECTRON  OEMS!  TY  AMD  TEMPtMATUHE  OP 

iumojU 

17* 

c 

E-  AMO  P-REC10MS. 

IONUSU 

ISO 

ccc 

IONUSU 

181 

c 

ELECTROM  DENSITY 

IONUSU 

18  2 

IP!  ZH-MCaOTO  )  213,212,212 

IONUSU 

181 

219 

1PE  *  KIOTO  •  EAPl(iH-HEBOTD)/ E00SCH) 

IONUSU 

184 

SO  TO  220 

IUHOSU 

185 

212 

IP1  ZH<I<P2<UD  )  214,214,216 

IONUSU 

)8a 

214 

KPE  *  EP2HAD  •  1 0.  EPE A* ( HP2 MZ D-ZH > • *2  1 

IONUSU 

187 

SO  T1  220 

IONUSU 

1 88 

21b 

KPS  *  EP2N1U  •  EXP(  (  HP  2MXD-ZH)  /P  29  SCH  ) 

IONUSU 

189 

C 

ELECTROM  TEMPERATURE 

IONUSU 

190 

229 

IP1  ZH-120.  7  222,2 24,224 

IONUSU 

191 

222 

T*  x  tr 

IONUSU 

192 

SO  TJ  280 

IONUSU 

1/1 

224 

ZMM120  x  ZH-120. 

llJMUSU 

19  4 

TI  »  TT  ♦  S9UT1  ZH  Ml  23/  A  ) 

lllNOS'l 

195 

SO  TJ  280 

IONUSU 

19b 

CCC 

liU.IS'J 

19  1 

C 

COMPUTE  Ml CHTTINE  ELECTRON  DENSITY  AND  TihPERATUkt  UP 

IiinUSU 

J98 

c 

K-  ANO  P-RtL£ONS. 

ItlNOxll 

199 

cc: 

lUNOsU 

400 

139 


ELEC  TR  ON  DENSITY 

25 a  ir (  IH-4  EB  JIN  )  269,262, 262 

2t9  SFE  *  EBOTN  •  EAPtlZH-HEbOTN)/EDNSCH) 

20  TO  270 

262  IF!  iM-HF2MXR  )  264,264, 266 

264  1FE  =  a  d  lTT  H  *  I0.**t  A  LC  201  •(  l  .0*S  INI  PIO  2*  (  ZR-H2PHU2)/ H2MR  02)  )) 

20  T3  270 

266  (FE  *  If  2N1N  *  EXPII  HF  2NKN-2H)  /F2BSCH) 

ELECTRON  TEMPERA TJ ME 
270  r«  =  TT 

C04t* UT E  EF2,  ETJP,  EFNOP ,  EFN2P,  AND  EF02P 
C 

era 

260  ALP1  -  B AT COF ( 1 0 ,TX)  ♦  »ATCJF( It ,T X)*EFE 
$  ♦  1.5E-07*SaHTUFt)/TX**3 

ALP 2  «  M  ATCOF (  2,TX) 

ALP3  *  RATCOFI  3, IX) 

ALP4  *  2  ATC3P  (  4, ID 

i r<  zh.ne.spifls  >  cau.  spcmi«i2,zh) 
c 

AN  ERRONEOUS  CON 01 1 1  UN  MILL  OCCUR  IP  IONJSU  IS  CALLED  *IIH 
JJ  =  2  AND  A  Cl  WEN  VALUE  UF  ZH  IF  SPCNIN  HAS  NOT  NKEN  CALLEO 
FIRST  MITU  J J=2  AND  FOR  THE  SANe  VALUE  OF  ZH. 

THE  VARIABLE  SPIFLC  IS  USED  T)  DETECT  THIS  CJNulTlOM  AND 
ID  MAKE  THE  RE201RE3  CALL  TO  SPCNlN. 

THE  OPTIMUM  ORDER  IS  "CALL  AT HOSU (  2, ZH ) "  THEN 
"CALL  SPCHI  Hi  2, AN  )  "  AND  THEN  "CALL  IOIOSUI  2,ZH) 

ZHFLAC  AND  SPIFLC  HILL  DETECT  CALLS  MADE  IN  ANv  OTHER  ONDeM. 

C 

SPIFLC  IS  INITIALIZED  T3  AN  AMB1TRARV  NEC  ATI VE  VALUE  IN 
THE  INITIALIZATION  CALL  T3  AT40S9. 

c 

IET2I  *  RATCOFI  5,TT)*SNII1) 

IET23  -  RATCOFI  7,TT)*S*lt3) 

IET24  *  RATCOFI  B,TT )*SNI 17)  ♦  RATCOFI  9, TT)* SNI I U > 

9LT41  s  RATCOFI  6,TT)*SMl(2) 

1ET11  *  BET21  *  BET41 
A1  3  S  N  1  4  3) 

A2  s  SHI  18) * 2« 

Ai  *  SNIU)*2. 

A4  «  SNII2)*2. 

>A1  *  At  ♦  A2  ♦  A3  ♦  A4 
CAMII)  *  A1/SA1 
2A4I2)  *  A2/SAI 
2A4II)  *  A ) / S A  1 
2ANI4)  -  A 4/SA I 

AP  =  CAM(1)/ALP1  ♦  CAM!  2)/ALP  2  ♦  SAMI3>/A.PJ  *  UAMI4J/ALP4 

AP  =  HET21  *11  aO/ALP  2  -  l.O/ALPl)  ♦  UET  4 1  *  l  I  .  0/  ALP4  -  1.3/AlPI) 

CP  =  HeT23*I  1.0/ALP2  -  1.0/  ALP)  ) 

)P  =  HeT24*I1.0/ALP2  -  1.0/ALP4) 

A2DEN  =  8ET23  ♦  ALP )*KFe 

I i )E V  =  BET24  ♦  ALP4  *KFe 
FACTA3  =  OP/A  30eN 

BICA  *  AP  ♦  CP *G AMI  3 )/ A 20 eH  ♦  FACf A J*UA MI  4 > 

IISN  *  BP  ♦  F  ACT  A3*  d  ET  4 1 


IUMOSU 
I ONUS J 
lUNOjU 
IONOSU 
IUNJS'1 
IUNDS1 
IONOSU 
ION  >SJ 
IONOSU 
IUAJjU 
HjNjSJ 
10NJSU 
IONOSI 
lUNoSU 
lUaJSU 
IONOSU 
IONOSU 
10NJSU 
IONOSU 
IONOSU 
1JN0SJ 
IONOSU 
IONOSJ 
IONOSU 
IONOSU 
IONOSU 
IONOSU 
1UN0SU 
IONOSU 
IONOSJ 
lUNJSU 
IONOSU 
IONOSJ 
IONOSJ 
IONOSU 
IONOSU 
IONOSU 
IONOSU 
IONOSU 
IONOSU 
IONOSJ 
lONoSU 
ION  ISU 
lONOsll 
ION  IjU 
ION  JSU 
IONOSU 
IONOSJ 
ION..SU 
IONOSU 
IONOSU 
lliOOsU 
IOJOj'J 
lUnOSU 
1  J.i  ISJ 
IONOSJ 
tONOsU 


FACT i  *  Btril  ♦  ALP1 <bFt 

IDallitl 

4!>d 

jra  *  »  8Icb<caik u/uctjj 

lilNIISI 

468 

)Otf  -  £F a 

lUM.uU 

460 

mr 

lUMIliU 

461 

IF2P  *  SAM(1><EFQ/FA CtO 

I  UMliSfi 

4l.2 

EFN2P,  KFQ2P#  **0  bPMJP 

1UAII3U 

46  i 

if«2P  *  CAM<  3)<tK«/A20tll 

lUMdaU 

46  4 

IF32P  *  <CAN<4)<t:F2  *  BKT41 *EF OP )/ A3DK8 

iumiiSu 

468 

ir«OP  *  <CAM<2I<KF9  ♦  BET21  *fc'FtlP  •  Bcr2]*iFH2P  *  8tT24<fcFU?P) 

IUM.IS  1 

466 

/  <ALP  2*  EFE  ) 

lumun 

461 

SUd)  =  irt 

lUMilSJ 

468 

>«1<I0)  s  SFQP 

lumisu 

4 1*8 

SNI< 11)  =  EFNQP 

lUMOiU 

410 

Sm<12)  s  fl 

lUmlSU 

411 

ill 1 1 28 )  s  EFN2P 

1  g»:/s  j 

41? 

>•(< 29)  s  SFJ2P 

lumisj 

47  4 

ItTUUM 

luMiljlf 

474 

AMD 

UIMUSU 

47l 

141 


subroutine  juliaiuyrfj,veuj,oayj) 


JULIAN  IS  REVISION  0)  ( OS/21/78)  UP  SUBROUTINE  JULIAN 

DEVELOPED  FOR  R3SC OE-RAD AM . 

Rtf  t  SI  311  01  (05/0M/77)  PROVIDES 

1.  CALCULATION  OK  (1)  THt  VARIABLE  PVR,  Trie.  PHACTIJNAL 
SEASON-YEAR,  NEtUtD  PUR  THE  NEH  HATER  VAKJR  AND  OZONE 
MOOELS  AND  (2)  THE  VARIABLE  FST,  THE  FRACTIONAL  SUMNER, 
NEEDED  PON  THE  SEASONAL  INTERPOLATION  BiTNEEN  THE 
SUMNER  AND  NINTeR  TEMPERATURE  PHOKILtS  INPUTTED  AS 
OATA  FOR  TNE  REVISES  LO« - ALT  IT  UUt  MAJOR  SPECIES  NUDEL. 

2.  REVERSAL  OP  SEASONS  IN  SOUTHERN  HEMISPHERE. 

REVISION  02  (10/15/77)  PROVIDES 

).  REVISED  COMMENT  CARDS. 

REVISION  03  (05/21/78)  PROVIDES 

«.  DELETION  OP  VARIABLES  KYRS,  KMJNS,  AND  (DAYS  PROM  THE 
ARCUMeNT  LIST  SINCE  THESE  VARIABLES  ARE  MUM  SUPPLED 
THROUGH  TIME  COMMON  WHERE  THEY  ARE  BROWN  AS  IVRS,  IRONS, 
AND  ID  AYS. 

5.  REVISED  COMMENT  CARDS. 

SUBROUTINE  JULIAN  CONVERTS  A  ■ RECUR  I  AN  DATE  AT  CREENNICH  TO 
JULIAN  OAV  NUMBER  OAVJ  FOR  SUBROUTINE  sOLURH. 

SUBROUTINE  JULIAN  IS  VALID  FOR  YEARS  1901  TO  1999  INCLUSIVE. 

INPUT  PARAMETERS 

TINE  COMMON 

1TRS  -  HU Ml  CM  OP  THE  YEAR  IN  THE  19UO  S  (E.C.,  I97M 
BcCJMES  74),  IN  CREENNICH  TIME  L JNc.. 

IMONS  -  NUNHER  OF  THE  MONTH  (E.C.,  FEBRUARY  BECOMES  2), 

IN  CREENNICH  TIME  ZONE. 

IDAYS  -  OAT  UP  THE  MONTH,  IN  CREENNICH  TINE  ZONE. 

PLAT  -  NORTH  LATITUDE  OP  POINT  P  (RADIANS) 

OUTPUT  PARAMETERS 

ARGUMENT  LIST 

YRFJ  -  JULIAN  DAY  NUMBER  (i  HALF  INTEGER)  AT  0  HRS  UT 
ON  JANUARY  1  OP  THE  YEAR  OP  INTEREST. 

VEQJ  -  JULIAN  DATE  FOR  VERNAL  EQUINJX. 

DA V J  •  JULIAN  DAY  NUMBER  (A  HALF  INTEGER)  AT  0  HRS  UT 
ON  THE  DAY  OP  INTEREST. 

TINE  COMMON 

PTH  s  FRACTION!.  SEASON-YEAR 

BEING  0  UN  1 -JAN  IN  NORTHERN  HEMISPHERE  AND 
0  ON  1-JULT  IN  SOUTHERN  HEMISPHERE. 

PST  =  FRACTIONAL  SUMMER 

BEING  1  ON  1-JULT  AND  0  ON  1-JAN  IN  NORTHERN 
HEMISPHERE  I  NO  REVERSED  IN  SUUTHeRD  HEMISPHERE. 

DEFINITION  OP  DATA 

DAVN(I)  -  THE  CUMULATIVE  NUMBER  OP  DAYS  PROM  THE  BEGINNING 
OP  THE  YEAR  TJ  THE  END  UP  THE  (I-i)TH  MONTH,  1M 
A  NON- LEAP  YEAH. 

1IMEIS10N  DAVN(12) 

CDNNON/T INK/  IVRS, 1NUNS, lUAYS,ZT,PLAT,PLON,Ur, CAT, PVR, FST,RHQ>AM 
,CKI 


JULIAN 
JULIAN 
JULIAS 
JULIAN 
JULIAS 
JULIAS 
JULIAN 
JULIAN 
JULIAS 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JUEI AN 
JULIAN 
JULIAN 
JULIAN 
JJLIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JUL1*N 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JUL1  AN 
JULIAN 
JULIAN 
JJLIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
JULIAN 
AUMM07 
KUMM07 


)ATA  (0AYN(A),l  =  l,l2>  /  0.,31.,59.,9U.,120.,15l.,ldl.,212., 

JULIAN 

5-1 

•  243. ,273. ,304., 3)4.  / 

J  ILIA* 

SI 

3AYS  =  IQAYS 

JULIAN 

60 

IBS  =  1YRS 

JULIAN 

61 

cc 

JULIAN 

b2 

THE  FIRST  TERN  P L)H  UAYJ  IS  THE  JULIAN  DA t  N  U  M  b  LK  AT  0  HMS  UT 

JULIAN 

63 

19)3  JANUARY  1.  THE  TH1RU  TERM  PUB  DA YJ  lb  THE  NUMtttM  DP 

JULIAN 

64 

EXTRA  ( LEAP- YEAB )  DAYS  SINCE  1900  YD  THE  ST ANY  UP  THE  YEAN 

JULt  Aw 

6b 

JF  INTEREST. 

JULIAN 

6b 

cc 

JULIAN 

b/ 

9 AY J  =  2415020. S  ♦  365.*VNS  »  AlNYl  <VRS-l.)/4.  ) 

JULIAN 

bH 

trfj  =  0  A Y J 

JULIAN 

ON 

VERNAL  EQUINOX  OCCURS  WITHIN  ABOUT  7  SECJNUS  UP  TINE  AT 

JULIAN 

70 

90  HOURS  UN  21  MARCH  1974,  AT  WHICH  TINE  THE  JULIAN  DAY 

JULIAN 

71 

WORSEN  IS  2442127. 5  .  t JR  NEAR  BY  YEARS  TIE  JULIAS  DATE  FUN 

JULIAN 

72 

VERNAL  EQU 1N01  WILL  BE  GIVEN  BY  Y eQJ. . 

JULIAN 

7  3 

VC3J  -  2442127. 5  ♦  365. 2  5*(  YNS-7  4.  ) 

JULIAN 

74 

cc 

JULIAN 

75 

LEAP  IS  AN  INDEX  THAT  EUUALS  0  PON  A  LEAP  YEAN  AND  OTHERWISE 

JULIAN 

7b 

EQUALS  1,  2,  UR  J  . 

JULIAN 

77 

JULIAN 

7H 

.EAP  =  RUD( 1 VRS, 4) 

JULIAN 

79 

IP(  INQNS.LT. 3  )  GU  TO  1 

JULIAN 

MO 

IP  (  LEAP. £3.0  )  DAY  J  =  OAYJbl.O 

JULIAN 

HI 

1  9AVJ  =  UAVJ  »  OAVMl 1 N JNS )  ♦  AOaYS-I.O) 

JULIAN 

H  2 

1AYVR  =  365. 

J  JL IAN 

HI 

IP(  LEAP. tO. 0  )  DAYYR  =  J6b. 

JULIAN 

84 

PVR  =  (DAY J-YRPJ)/DAYYR 

JULIAN 

85 

PST  =  2.  *FYR 

JULIAN 

8b 

IP<  PT R.cr.0.5  )  PST  =  2.-PST 

JULIAN 

N7 

IP(  PLAT. GE. 0.0  )  GU  TO  2 

JULIAN 

Hd 

CORRECT  FOR  SOUTHERN  HEMISPHERE 

JULIAN 

89 

PYN  =  FYN»0. 50 

JULIAN 

90 

IP(  PVR. GT. 1.0  )  PYR  *  PYR-l.O 

JULIAN 

91 

PST  =  l.O-FST 

JULIAN 

92 

2  SETOSE 

JULIAN 

93 

1ND 

JULIAN 

94 

H3 


SUBROUTINE  0X0NE(AA,4AM,0Z3> 

SUBROUTINE  OZONE  ZUHPUTtS  THE  LATITUDE  AID  StASUN  DEPENDENCE 
3P  3ZUNE  FOR  ALTITUDES  FROM  0-  TO  SS-AM.  (P JR  HIGHER  ALTITUDES 
SEi  SUBROUTINE  SPCMIM) 

THIS  IS  A  NEr  ROUTINE  FOR  R3SCOR-IR. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

u  =  calzjlatijn  plac 

-  I#  CALCULATE  I  HI  Tl  ALIZATION  PARA  HE  Te  RS 

-  I#  CALCULATE  JZuNE  MIAINC  HAT  10  PUR  0-  TJ  55-AM 
ZAM  s  ALTITUDE  OP  INTEREST#  FROM  0-  TJ  Ss-AN 

TIME  COMMON 

PEAT  s  NORTH  LATITUDE  OP  POINT  (RA)iANS) 

PPR  *  FRACTIONAL  SEASON-TEAR#  BE1NC  0  ON  1 -JANUARY  IN 
NORTHERN  HEMISPHERE  AND  ON  I-JULT  il  SOOTH ERA 
HEMISPHERE 
OUTPUT  PARAMETER 
ARGUMENT  LIST 

OZ3  =  Mill N#  RATIO  JP  OZONE  AT  ALTITUDE  ZAM#  IN  AC/AC 

COMMON/  ATMOUP/  HL,S»  AR  #  IOURN,  PP#  RH  0,  TT#  SNI  (  09  )#  NkHO,  PEHSE A 
COMMON/TIME/  lVKS#IM3NS#lOAVS#ZT#PLAT#PL3N#Uf#CAf#PVR#FST#RH05KM 
•  #CHI 

OAT A  PI  /  3.141592453590  / 

JO  TO  (100,000)#  AA 

INITIALIZATION#  CALLED  PROM  SUBROUTINE  SPCMlN  DURING  ITS 
INITIALIZATION. 

PA  ISO  *  PI/ 1  BO . 

3LL  *  ABS(PLAT)/PI1H0 

AA  =  2.4bE-09*(105.-BLL3*EXP(-(105.-BLL>/47.) 

IB  >  O.BBB  ♦  0. 0 1 04* BLL 

00  =  (1.837  -  0.014*BLL)*1.0E-05 

EE  =  0. 50/(1. 0»EXP(0.U7l*(bLL-44.)))  *  b.0E-U5*ULL*uLL  -  0.014 
PP  *  (BLL-35./(l.Q*E«P(-0.243*(HLL-d0. ))))••/ 

ZA  =  12.44  -  0.093ML.  ♦  o. 0/U.  0*  EXP( -0. 31 8* (  B LL-Bs . 5  )  )  ) 

12  =  29.  20  -  0. 1 53*1! LL  -  b.O/t  I.O»EXP(  0.  08*(  NLL-I  0  .)  )) 

ALPHT  =  0.20  -  6 .79E-0 4* bLL 

ZUT  a  ( 7 . 24E-0  4* BLL  ♦  6 . 42 E-0 3 )• BLL  ♦  46.9 

ALPHA  *  0.234  ♦  0.  2)4/  (  1 . 0»t  XP  (  -  0.  09B2  •(  BLL-3  7.  )  )  ) 

BETA  =  0.55  ♦  0.40/(  1.  0»  EAP(  0.  0Y4*  (  BLo  -  3tt.  >  )  ) 

ZOIC  a  31.0  -  0. 329«3LL  ♦  ll.a/(1.0*EXP(-0. II 2*(HLL~74. ))) 

I02C  a  37.4  -  0.  1 94*  ILL  ♦  9. 47 /(I.  0»EXP  ( -0.  1  3  5*  (  *LL- 75.  )  )  ) 

RETURN 
JUNMiUE 
ZA  RUN  =  0.0 

IP(  (ZAM.GE.53.)  .AND.  (ZAM.Li.55.)  )  ZKHUN  a  1.0 

bzz  s  aa*(ZKM-zo 

1P(  BZZ. CE. 50.0  )  BZZ  =  50. 

iPZ  a  PP/(ZKM*»5  ♦  103.)  -  EE* (Z AN -Z2 ) 

IP  (  iP Z.  GE.  50.  0  )  SPZ  a  50. 

ITZ  *  ALPHT* (ZKM -ZUT) 

SMR  a  AA*(l.0»0.O27*ZAM)/il.0»EAPlHZZ)>  ♦  UUPli.O»cXP(EFZ)) 

3MB  a  SMK/(1.0»eXP(4TZ)) 

IZZ  a  -ALPHA»(ZKM-ZJ1C) 

IP(  AZZ.GE.50.  )  AZZ  a  50. 

IZZ  a  »NET A*( ZAM-Z02 C) 

A P (  CZZ.CE.50.  )  C H  a  50. 

JAPK  a  (  1 .05E-0b/( 1 .OtbXP( AZZ ))  )  /  ( 1 . 0»EAP (C ZZ ) ) 

IZZ  a  1.465*(ZKM-22.  1) 
fit  a  9.  70  *l  ZAN-1  3.  2  ) 

JAMMA  a  *,0.1  2*(  1 . 0/ (  l.OtEKP(OZZ))  ♦  0.  b55/ (  1 . 0»E  XP(  P  ZZ)  )  ) 

INGLE  a  (J60.*PYR-GAMMA)*PI1BO 
JZ3T  *  CAPA*SIN(  ANGLE)  ♦  SMR 
IPSMi  a  3.  10E-06  -  9Z3T 

9X3  *  QZ3T  t  OPSMH* l ARON  * ( 0. 50*S1GN(0.50#DPSMR)) 

RETURN 

END 


UZ  JN  c 
U  ZUV- 
OZONE 
UZunE 
UZUKE 
OZONc. 
OZJA* 
OZONE 
OZJ.tr. 
UZJNt 
ozJN-: 

UZURe 
OZONE 
UZJNE 
OZONE 
oZ  jME 

UfUSt 

OZUN- 

UZUNe 

UZUNc. 

OZONE 

OZONE 

OZONE 

XUM-02 

A0MUO7 

KOhH 07 

UZjNl 

OZUNe 

UZUNe 

OZUNe 

OZONE 

OZONE 

OZONE 

UZOHc. 

OZONc. 

OZONE 

UZ  jNe 

OZONE 

OZONE 

UZONc. 

u/.une 

OZONc. 

OZuNc. 

oZoS  E 

OZONr. 

OZON  ■ 

UZUNe. 

OZONE 

OZO  <  r. 
OZONr. 

0  Z  o  N  r. 
OZO  4r. 
OZON.. 
UZON_ 
OZoNc. 

It  ZO  .  c. 
uZONl 
O/UNe 
OZ  J  «e 
UZO'.E 
UZuNt 

OZoNc. 

OZONE 

OZONE 

OZONE 

OZONE 

OZONE 

OZONE 

OZoNe 

OZONE 

OZONE 


function  ratcofu,t) 

M  A  T  C  ,jr* 

2 

cc; 

mATC.IF 

i 

c 

function  hatcuf  pkuniuks  nit  rate  coeffi;  ittrs  needeI) 

FOR  the 

RITCuF 

4 

c 

1-  AND  F-MtClUN  IONOSPHERE  MOOEL  USeO  1H  ROSCUt-lH. 

RATC  IF 

s 

c 

RATCiiF 

6 

c 

THIS  FUNCTION  MAS  PREPARED  (OJ/OI/7B)  Hi  i  NTERl  M  USE 

raTC  I* 

7 

c 

PENDING  DENELUPNSNT  d V  C.  £.  TEMPO  OF  Ad  AOtUUAfE  tXTtNSI ON 

RATC  IF 

0 

c 

OP  THE  FUHCTIUH  RATt  USED  Id  4USCUE-HAUA4 . 

RATC.iF 

* 

ccc 

RATC  IF 

10 

c 

INPDT  PARAMETERS 

RATCOF 

1 1 

c 

ARGUMENT  LIST 

RATCJF 

12 

c 

1  -  REACT  UN  IrUeX  (SEE 

belon) 

RATC  uF 

l  3 

c 

T  -  TEMPERATURE  IDeC  A) 

RATCJF 

14 

c 

-  ft EEC T R JM  A mU  VIBRATIONAL  TEMPERATURE  FOR 

RATC.IF 

IS 

c 

REACTION.,  2,  3,  4, 

10,  AND  It 

RATCJF 

16 

c 

2  MEANT -PARTICLE  KINETIC  TEMPERATURE  FOR 

RATCIF 

1  7 

c 

OTHER  REftCTlJNS 

RATCJF 

1  d 

c 

OUTPUT  PARAMETER 

RATCOF 

14 

c 

FUNCTION  RATCOP  -  REACT  ION 

RATE  COEFFICIENT, 

RATCOF 

20 

c 

cm*m/se: 

FOR  2-8UDT  REACT t JNS 

RATCOF 

21 

c 

CN**E/SKC 

FOR  3-BOON  REACTIONS 

RATC.IF 

2? 

ccc 

RATCJF 

2  A 

c 

REACTIONS  INCLUDED... 

RATCOF 

24 

c 

RATCJF 

?S 

c 

BO.  REACTION 

RATE-COEFFICltMT  REFtRENCE 

RA  TCuF 

26 

c 

RATCOF 

2  1 

c 

RATCOF 

2d 

c 

1A  Nil*  ♦  E  -  N(4S)  ♦  0 

HUANC  FT  AL.U47S) 

RATCuP 

24 

c 

IN  NO*  ♦  K  =  N(20)  *  0 

HUANC  FT  AL.I147S) 

RATCuT 

to 

c 

3  N  2*  »  E  *  N ( 4S)  »  N<20) 

dllROl  (1461) 

RATCOF 

31 

c 

4  )  2*  ♦  E  *J  »J(lO) 

MALLS  AN  3  DUNN  (1474) 

RATC.IF 

12 

c 

S  O*  ♦  N2  ft  NO*  •  N(4S) 

DUNK  IN  ET  AL.  I  146(0 

RATCJF 

J  1 

c 

»  0*  ♦  lU  *  J2*  ♦  0 

MCFARLAND  ET  AL. (1473) 

RATCJF' 

14 

c 

7  82*  ♦  0  ft  NO*  *  N ( 2 0) 

4CFARLAN)  tT  AL. (1 47  J  > 

RATC  IF 

JS 

c 

»  02*  *  N(4S)  *  NO*  »  0 

GOLDEN  ET  AL.( 1466) 

RATCOF 

to 

c 

4  07*  »  NO  ft  NO*  «  02 

FtHsENFE.D  ET  4L.U97U) 

RATC  IF 

37 

c 

IJJ**  t  sO  ♦  HNU 

BLOCK  DATA  BLftCllM,  RJSCJF-RftU. 

RATC.IF 

Jd 

c 

It  0*  ♦  E  ♦  E  s  J  ♦  K 

BLOCK  DATA  HLKCHN,  ROSCJE-RAD. 

RftTC.IF 

t4 

c 

RATC.iF 

40 

c 

RATC.IF 

41 

c 

RftTC.IF' 

42 

c 

FOR  REACTIONS  2  THROUGH  4,  RATE  COEFFICIENT*  ARl  T»K-n 

RftTC.iF 

4  1 

c 

NITRUUT  HEN  1 FN  AS  PRESENTED  14 

SO-76  (STtJREL  ET  Al.., 

JCR 

HATCuF 

44 

c 

NOt.  dl,  J74S<l)Js)).  FOR  REACTIONS  10  ft  no  11.  HATE 

RftTC.iF 

4s 

c 

COEFFICIENTS  ARE  TAKEN  FROM  H. 

KC4N  IN  RJSCUE-KADAK. 

RftTC.iF 

««» 

ccc 

KATfjK 

47 

UMENSIJN  RAT(ll),  PUNA  11) 

RATC.iF 

4  a 

IATA  RAT  /  U.O,  7.3t-07,  2.  Re -0  7, 

2.2.. -07,  S.UE-lJ,  2.0;,- 

11, 

nATC.lt' 

44 

S  2.SE-10,  l.Ht-10, 

On  it*  l  Of  4  •  4  C.  “  1  ^  f  l  •  4  t  " 

IP  / 

r*TC  ik‘ 

SO 

IATA  POM  /  O.u,  O.SO,  0.J3,  0.40, 

U.O,  0.  40,  0.44,  0.0,  U 

.0, 

RftTC.iF 

SI 

>  0.  IS,  S.O  / 

RATC  IF- 

S  2 

cc: 

RftTC  IF 

St 

RATCJF  ft  HAT(l)  •  ( iOO./TI ••PORI  I) 

RATC.IF 

*J1 

1F(  I.ER.2  )  LU  TO  2 

raTC  jf 

S  1 

IF(  I.E2.S  )  Cl)  TJ  1 

R.TC  IF 

*•  n 

RETURN 

RATCJF 

6  / 

2  TATCJF  i  RATCOF  •  (JsJ./JOO.  )**l’0«(  . ) 

K  ATI'lIK 

bd 

RETURN 

RATCJF 

S  IPt  T.LT.600.  )  RATCJF  s  RATCOF  *1  600 ./ T  ) 

RATC  JF 

hO 

41  TURN 

RATCJF 

6  1 

INO 

HATCuF 

62 

Ub 


subroutine  sulcvc(davj) 

soanoutine  sulcyc  confutes  the  suu  flui  sham,  an  input  to 

A THOSU  THROUGH  COMMON  ATMQUP,  BAStU  UN  AN  ASSUMED  SINUSOIDAL 
1 1  -«  M  (JR  401B-DAY)  I A  HI  AT  ION,  HI  Til  THE  4AA1MUM  VALUE  OK  2  SO 
FOR  SHAH,  ASSOCIATED  N1TH  C1HA-6S  MODEL  V,  JCCUKRING  JN 
19*8  JUNE  t.  THE  MINI  NUN  VALUE  UK  NS  FUN  SHAM  IS  ASSJClATtU 
Nlttt  C1NA-6S  MODEL  1. 

NEVA  SI  ON  01  (01/01/78)  PROVIDES... 

1.  REVISED  AT  HOOF  CONMUN  FOR  KOSCOt'-lH. 

INPUT  PARAMETER 

OAVJ  -  JULIAN  OAV  NUMBER  (A  HALF  INTEGER)  AT  0  HRS  UT 
ON  THE  DAV  UP  INTEREST. 

JUTPUt  PARAMETER 

SB AR  -  AVERAGE  10.7-CN  SOLAR  FLUX,  l.0t-22  V/(M*«2  HZ). 

SHAN  IS  AN  INPUT  TO  ATMUSU  TiRUUGH  COMMON  ATMUUP. 

CONNJN/ATMJUP/  HL/SN AN, I  DORN, PP, RH 0, TT, SNI (10 ), HRHU, FEHSK 4 

)EF I  Nit  ION  Or  DATA 

0JS936  -  JULIAN  DAV  NOMBER  ON  19S8  JUNE  1  *  243n3sS.S 

JATA  0JS806  /  24Jb3bb.b  / 

DATA  PI  /  3.141b92Nb3b90  / 

*12  =  2.  *PI 

SAAR  «  1S7.S  ♦  92.5*C0S(  (  DA  VJ -ti  JS  806)  *PI  2/40  IN.  ) 

1ETUHN 

END 


SulCYC 
SOLCYC 
SULCYC 
SULCYC 
SULCV  C 
SULCYC 
SOLC/C 
SOLCYC 
SULCYC 
SULCYC 
SlILC  «C 
SULCYC 
SuLCYC 
SULCYC 
SULCYC 
SULCYC 
SOLCYC 
SULCYC 
SOLCYC 
SULCYC 
A  Uhnu 2 
SULCYC 
SULCYC 
SULCYC 
SULCYC 

s  „cy: 

SiluCYC 

SULCYC 

SULCYC 

SULCYC 

SULCYC 


SUBROUTINE  SULORB(VHPJ,VEUJ,DA  VJ,SULLAT,SuLLJN) 

SUIHOOTINE  SOLONA  CONFUTES  THE  N)HTti  LATITUDE  S.JLLAT  AND 
it  ST  LONG  I  TUDh  SJLL3N  OF  T  HE  APPARENT  (ACTUAL  NOTION) 

SUSSULAR  PU1  NT,  ClVe.il  Tilt:  JULIAN  UAV  NUNJ  tR  AT  0  HNS  UT  ON 
UVJARY  1  UP  THE  V  t  AH  OP  INTEREST  (VNFJ),  Tilt  JULIAN  DATE  AT 
NNICH  VE  BN AL  EUUliUI  OCCURS  (VEuJ),  THE  JULIAN  DAT  NUNHER  AT 
3  HNS  ON  THN  DAT  UP  iNTtRtST  (DAYJ),  ANU  Tub  UNIVERSAL 
TINE  (UT). 

AKV 1  Si  .IN  02(10/lS/77)  PRUVIOES... 

1.  UEFtNITlON  JP  A  NEW  VAHIAdLE,  JeLJJT,  T.l  AVUIU  LJSS  OP 
SIGNIFICANCE  IN  CJN»UTl.<G  SOLLUN  UN  A  SNALl-NORO  MACHINE 

2.  REVISION  UP  THE  ARCJNtNT  IN  THE  EOJ ATI JN-JP-T 1 it, 
CONSISTENT  N1TH  ITS  DEFINITION. 

REVISION  OJ  (0J/U1/7H)  PROVIDES... 

3.  REVISED  TINE  CUNNUN  FOR  NUSCUt-lH. 

INPUT  PAKANETERS 

VMFJ  -  JULIAN  UAV  NUNBER  (A  HALF  INTEGER)  AT  0  HRS  UT  UN 
January  l  uf  the  year  of  mitRc-sr. 

V  E3J  -  JULIAN  DATE  FOR  V&RNAL  EUUINJX. 

DAY J  -  JULIAN  DAY  NUNHER  (A  HALF  INTtLtR)  AT  0  HRS  UT 

on  the  day  jf  interest. 

UT  *  UNIVERSAL  TINE  id  EC INAL  HRS). 

OUTPUT  PARANETERS 

GAT  -  CRF ENRICH  APPARENT  TINE  (DECINAL  HRS). 

CAT  IS  PLACEO  IN  CQNNDN  TINE. 

SOLE  AT  -  NORTH  LATITUDE  UF  SUHSOLAR  POINT  (RADIANS). 

SULLJN  -  EAST  LONGITUDE  OF  SUSSULAR  PjlNT  (RADIANS). 


JIFINITIONS  AND  CUNNtNTS 

JTD2N  IS  THt  DECINAL  FRACTION  OF  UAV  CUR  t  EsP  JNl)  I NC  TO  UT. 
DAY  JUT  IS  THt  JULIAN  (DECINAL)  DAT  NUNHLR  AT  UT  HRS  JN  THt 
OAT  OF  INTEREST. 

DAVNII  IS  THt  NUNHER  OF  tLAPSt.l  (Dc-CtNAL)  DAYS  SINCE  TH 
BEGINNING  OF  THE  YEAR  AT  0  HRS  UT  JN  JAN J  ARV  I. 

THE  UUANTITV  (OAVJUT  -  A  I  N  Ti  DA  Y  J  J  T  )  )  ,  THt  REST  LJNC1TD 
THE  SUHSOLAR  POINT  EXPRESS  ED  IS  A  DtCINAL  FRACTION  OF 
RADIANS.  IS  SUBTNACTEU  FKJN  l  TO  UHTAIN  THE  FRACTIONAL 
LONGITUDE.  THE  riKST  TRO  eapressuns  for  sjllon  are  t 
wOBGlTUDK  OF  THe  SUHSOLAR  PJIRT  OF  THE  (FlCriTlOOS)  NE 
IT  IS  POSSINLE  TO  NINE  AN  APPROXIMATE  CORRECTION  FOR  T 
DIFFERENCE  BETNEEN  THE  APPARENT  (ACTUAL  NOTION)  SOLAR 

and  the  nlan  solar  tine,  xnonr  as  the  ejiati jn-jp-tins 

S.G.,  INK RICAN  PRACTICAL  NAVIGATOR  (ORIGINALLY  BY  N. 

BOND  ITCH ) .  U.S.  NAVY  H.U.  PUt).  NJ.  9,  P.  J7  S,  OP  19o2 
CORRECTED  REPRINT  EDITION,  AVAIL AbLE  FRON  U.S.  GOV.  PR 
JFF1CE).  IN  THE  U.S. A.  (IN  CONTRAST  TO  GRtAT  HRlTAIN) 

SIGN  OF  THE  EUU ATI  ON -UF -TI ME  IS  ClINSIDf.RtU  POSITIVE  IF 
TINE  OF  THE  NER1D1AN  TRANSIT  BY  THE  SUN  IS  EARLIER  THA 
HRS  AND  NEGATIVE  IF  LATER  THAN  1)00  HRS.  (NJTE  THAT  A 
NERIDI IN  TRANSIT  BEFORE  1200  HRS  CORRESPONDS  TO  THE  EA 
LUNG  ITUUE  OF  THt  SUN  BEING  SNALI.ER  THAN  THE  VALUE  EXPt 
BASED  JN  A  NEAN  SJN.)  A  NY  UAL  EDITIONS  OF  THt  NAUTICAL 
ALKANIC  PRIOR  TO  1 9b  2  TABULATED  VALUES  OF  THE  EQUATION 
AT  12-HK  INTERVALS.  THESE  TABULATED  VALUES  OF  THE  EUU 
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SUtHOUTlNE  SOLZE N( S JLL AT,  SOLLUN) 

SU3ROUTINE  SULZEN  CUNPUTES  COSCHI,  tllE  COSINE  UP  THE  Lk  KITH 

angle  or  rut  sum  at  a  puint  p,  given  the  Geu.haphic  north 
LATITUDE  PLAT  AMD  EAST  LONCITJOt  PLON  l)P  THE  POINT  P  AMU  THE 
NORTH  LATITUDE  SULLAT  AMD  EAST  LONGITUDE  SbU.UA  OP  THE 
SU3SULAH  POINT.  THE  3AV-3H-NI CHT  PARAMETER  IDURN  IS  1  PUR 
3AVTIME,  I.E.,  I  PI  COSCHI  .CP.  0.  0),  AND  IS  -1  PUr  NICHTTIMc, 
I.E.,  IPICUSCHI.lt. 0.0).  THE  LOCAL  APPARENT  TIME  HL 
IS  ALSU  COMPUTED  PBJN  THE  GKEENHiCH  APPARENT  TIME  GAT  AND  THE 
L0NG1TU0S  PLON. 

REV  I  SI  UN  01  (06/07/71)  PROVIDES 

1.  SOLAH  ZENITH  ANGLE/  CHI  (RADIANS) 

REVISION  02  (0I/01/7H)  PROVIDES... 

2.  REVISED  ATNOUP  AND  TINE  COMMONS  POR  HOSCUE-IR. 

INPUT  PARAMETERS 

PLAT  -  NORTH  LATITUDE  UP  POINT  P  (RADIANS) 

PLON  -  EAST  LONC1TUOE  OP  POINT  P  (RADIANS) 

SULLAT  -  NORTH  LATITUOe  OP  SUBSOLAR  POINT  (RADIANS) 

SOLLUN  -  EAST  LONGITUDE  OP  SOBSJLAH  POINT  (RADIANS) 

OUTPUT  PARAMETERS 

CHI  -  ZENITH  ANGLE  OP  TIE  SUN  AT  P)1NT  P  (RADIANS) 

IDOHN  -  PARANETER  POR  DAV  OK  NIGHT.  IP  COSCHI  IS 

THE  COSINE  UP  THE  ZENITH  ANCLE  UP  THE  SUN  AT 
PUINT  P,  IDOflN  IS  1  POR  DAYTIME/  l.E./ 
IP(CUSCHl.CE.O.O),  AND  IS  -I  POR  NIGHTTIME, 
l.E./  IPICOSCHI.Lr. 0.0)  .  DOHM  IS  AH  INPUT  TO 
ATNQSO  THROUGH  COMHUN  ATNOUP. 

HL  -  LOCAL  APPAHENT  TIME  (DECIMAL  HRS,  t.G.  22)0  HRS 
BECOMES  22. aO  HNS)  .  IIL  IS  AN  INPUT  TO  ATMOSU 
THROUGH  COMMON  ATMOUP. 

CQNM3N/ATMUOP/  HL,S BAR, i  OURn, PP,  RH U, TT, SNI(  3J  ),  HKHU,  PtHSED 
C0MM3N/T IME/  1 VRS, IRONS, ID  AYS, ZT,PL AT, PLON, Uf , CAT, P VR, PST, RHOSKN 

•  ,CHI 

)AT A  PI  /  i. 1 41 5926S3S90  / 

THE  PULLUNINC  PJRMULA  IS  BASED  UN  EQ.  (1.41)  OP  IONOSPHERIC 
RADIO  PROPAGATION  BV  A.  DAVIES,  NHS  MONOGRAPH  HO,  I96S 
APRIL  1.  IT  HAT  ALSU  BE  DERIVED  BV  APPLV IMG  THE  LAN  3P 
COSINES  POM  AN  OBLIUUE  SPHERICAL  TRIANGLE. 

COSCHI  £  SlN(PLAT)  •  SIN(SOLLAT) 

•  »  CUS ( PLAT)  »  COS(  SULLAT)  •  COS(  PLON-S OLLON ) 

CHI  s  ACUS(  COSCHI  ) 

IDOHN  i  I 

I P  C  COSCH1.LT. 0.0  )  IDOHN  s  • IDOHN 
PI  2  *  2.  *P  I 
A ADMR  *  PI/12. 

IL  i  GAT  -  (P12-PL3l)/RADMil 
IPI  HL.LT.0.0  )  HL  *  HL»24. 
iETURN 
(HO 
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SUBROUTINE  SPCN1N( KE,ZH) 


rat  roscoe-radar  inav  h7>), 

TlU  HIGH-ALTITUOE  CHEMISTRY  NODULE  UEUUIKeS  THt  MINOR  NEUTRAL 
SPEC  US  0/  C02,  N,  ANO  NU.  PROFILES  PUN  DAY  AMU  NICHE  AT  ALI 
ALTITUDES  ABE  PR0V1DEU  POR  U  AND  Cj2  IN  ATMJSU.  MERE  IN 
SPCNIN  NE  PROVIDE  PkO/UES  OP  N  AND  NO. 

TNI  EON- ALTITUDE  CHEMISTRY  MODULE  RcJUIMES,  IN  AUDITION  TO  U, 
C02,  N,  AND  NU/  TIE  MlNuR  NeUTRAL  SPECIES  H  20,  02( SINGLET 
DELTA  G),  00/  ANO  N02,  ALSO  PROVIDE!)  BY  SPCNIN. 

POR  HUSC0E-1K  (MARCH  1978)/ 

THE  CHEMISTRY-MODEL  REUJIRES  NEUTRAL  SPECUS  IN  AODITION  TO 
THOSE  INDICATED  ASOVE  POR  ROSC OE-RADAR.  THUS,  SUBROUTINE 
SPCNIN  ADDITIONALLY  PROVIDES  ALTITUDE  PHJPILtS  OP  CO,  N20, 

CN4,  H,  OH,  H02,  M(  20),  N(2P)/  AND  0(10),  AS  NtLL  AS  REVISED 
PROPILES  OP  0)/  82 0,  N,  N14S),  AND  NO. 

itfISION  01  (OS/Oh/78)  PRUVIOES 

1.  SETTING  OF  TmO  CONSTSNTS  IN  THE  NICHTTINE  Oi  PROFILE. 
IEV1SDN  02  (0S/21/7N)  PROVIDES 

2.  DELETION  UP  UNUSED  ARRAYS  AV0NZM8),  1(9),  ZIM2N0(B)/  AND 
tl  NO  14(8). 

REV  1  SUN  0)  (06/24/79)  PROVIDES 

3.  RE  M)YAL  OF  SMALL  0 1 SCQNT INUt T V  IN  H02  PROFILE  AT  100  KM. 

4.  CORRECTION  UP  KEYPUNCH  ERROR  IN  DATA  FJR  NICHTTINE  H  DENSITY 
AT  89  AN  1  PROM  l.0E»08  TO  I.0L»07>. 

5.  CORRECTION  UP  CQNNENT-CAkD  UNITS  FOR  03  MASi-NII INC-HAT1 0 
DATA. 

6.  LONER  LIMIT  UP  1.0  FOR  H  DENSITY  AT  NIGHT  8ETREEN  74  AND 
7>  KM. 

7.  CORRECTED  CONVERSION  OF  N2U  VULUMt-H IX I NC  RATIO  (PP8V)  TO 
N 2 0  N UNDER  DENSITY  (1/CM*»3). 

8.  ABSOLUTE  VALUE  )P  LATITUDE  IN  COMPUTING  LATITUDE  FACTOR 
PJH  N2U. 

REVISION  04  (07/06/79)  PRUVIOES 

9.  CORRECTED  P IT  PUNCT1UN  FOR  102  FOR  7b. 3  .LT.  ZH  .LT.  US. 0  EM 

INPUT  PARAMETtHS 
ERCUMENT  LIST 

AK  -  CALCULATION  F.AC 

*  i,  calculate  initialization  pamaneters 

=  2,  CALCULATE  ATNOSPuERIC  piopertus 
ZH  -  ALTITUDE  OP  INTEREST  (KM) 

AT4JUP  CilMMUR 

IDJRN  -  iNDil  PUR  DAY  OR  NIGHT 
=  ♦!/  DAT 
=  -l,  NIGHT 

SNI(l)  -  SPECIES  DENSITIES  FROM  SUilROJTINE  ATMIISU 
ATM JS°  HiR  I C  MODEL. 

1  -  1,6  PJR  N2 ,  02,  1/  AR,  Ml,  C  J  2 

TIME  CONNOR 

PLAT  -  NORTH  LATITUDE  OF  POINT  (RADIANS) 

ZHCHEK  COMMON 

ZUFLAG,  -  FLAGS  USED  TO  DcTtCT  A  HD  CIRRLCT  An  furfuhr  IMS 
SPIFLC  SeOUENC-.  I.F  CALLS  TO  CUrt  HUUT  i  Ni  •>  GOIjJ,  >PCn|n, 
AND  I.INUSU  IN  THE  OPKWATUNA.  PMA/i.  APPROPRIATE. 


152 


'  %  ■* 


SPCM1N 

SPCMIN 

SPCHIN 

SPCMtN 

SPC“IN 

SPCNIN 

SPCMIN 
SPCMIN 
SPCNIN 
SPC-IN 
SPCMIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPChIN 
SPCNIN 
SPCNIN 
SPCliN 
SPC-1N 
SPCMIN 
SPCNIN 
SPChIN 
SPCMIN 
SPCMIN 
SPCNIN 
SPCMIN 
SPCNIN 
SPCNIN 
SPCMIN 
SPCMIN 
SPCMIN 
SPCHIN 
SPCMIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPCNIN 
SPC«IN 
SPC-IN 
SPC-IN 
SPC“  In 
SPC«»N 
SPC- I N 
SPC  N I N 
SPC*- 1  N 
SPC- I N 
SPC»IN 
SPl>»S 
SPC") A 
S‘*C  '  I  N 
/PCN| N 


UUuUUUUUUuUUUUUUUUUUUUUUUUUU 


ccc 


cc: 


EACEPTIUNS  ARE  ALL  ON ED  IN  THi  INITIALISATION 
PHASE. 

J0TP9T  P  AH  4  NETEN  S 
athjup  connon 

SHU  1)  -  N  DENSITY,  i/CN»»3 

SNll  8)  -  NU  OcNSITV,  l/CN**J 

S«I(1I)  -  02(S0u)  DtNSl T V*  l/CN*«3 

SNU14)  -  03  DENSITY,  l  /CN**3 

SNlllS)  -  NU2  D t  MS  1 T  V,  1/CN**3 

SN i ( 16)  -  H20  OeNSITV,  l/C4>*3 

SN  I(  1  7  )  -  H  DtNSl T  V/  1/CN«*3 

SNK1M)  -  OH  DENSITY,  1/CN»*J 

Still1))  -  H  02  OeNSITV,  I  /CM**3 

St  I(  20)  -  CO  0 eNS  IT  V/  l /CN* • 3 

SNK21)  -  N20  OKMSITY,  I/CN*»3 

sn ii 22 )  -  cm4  density,  i/cn*»3 

SN1123)  -  N(4S)  DENSITY,  I/CN»*3 

SN  I(  24)  -  N(  2  J  )  DtNilTY,  l/CN»«3 

SN  1( 2  S )  -  RELATlfE  HUMIDITY,  PERCENT 
SNK26)  -  0(13)  DENSITY,  1/CN**3 
SN  1(  27  )  -  N12P)  DeNSITV,  l/CN**3 
ALTUUN  CONNON 

ALTA  Ml  47 )  -  THE  ALTITOPlS  AT  NH1CH  NiNJN  SPEC  1 ES  AHE 
SPEC  IF  I  ED  AS  SATA 

9NITE118)  -  THE  NIGHTTIME  O-VALUES  SPECIFIED  AS  DATA 
:3212S)  -  THE  C02-YALUES  SPECIFIED  AS  J  AT A 
IHCHEI  CONNUN 
SPIFLC 

3ANENSI JN  AA11J)#BA1  7),CCt  6  1,  AM  UNIT!  2 1  ),  AN  4SDN  l  33  >,  A.«  20l>tl  4 1  > 

It  MENS  UN  U2SDUD1  4  7  )» Q2SDCt (4  7) * 9 3DA Y ( 2b7,U3NIT(?77,DD(ll7 
I1NEMS1JN  Y(6),Zl6),T0J(b),UU3(6),V03(6),W0J(6> 

3INENS1UN  «2UON(21),A*JDaY(2I  >,  GJ 1 1  )  >,  EK1  I  2) ,tt'(  I  4) 

1INENSI3N  DOHDAV (21  ),  OOMN  IT  ( 2  1) , U27A V  1  2 1 ),  i  U2N1 T 1  21 ),  CCJ HI 8), 

*  CHU7(B),DATCU(31),SMeTH(2S) 

lINclSIJN  DAHUA VI 21  ),  OA  «  N1  T(  2 1 )  ,  J  1  DO  AY  1  33  >,  3  N20U  2)  ,  CN2U1 9) 
11NLNSI3N  4120,211 

3IMENSIJN  SN02D(33),SND2N(J3),HH(  13) 

CUNMJN/ALT  JON/  ALTAM(47),ONITE(  18  )  ,  Cu  21  25  )  ,  3  iZUU 
;0NN3N/ATN  JUP/  HL,S3  AM  ,  1  DORN,  PP,  R8U,  TT,S.»I  (3)  ),H*«U,FtMSK# 

:0NN  3N/T  INEZ  1YNS,I4JNS,  I  0  AT  S,  ZT,»  L  AT ,  PL  Jt  ,U  T  ,  LA  T  ,  P  VR,  F  ST,  RHOSKM 

*  /CHI 

CUMHJN/YPC/  NVF LAC, METHOD, H2J120 
CQMMJN/tliCHEI/  l  uFl  AS  /  SP  IKuC 

)  AT  A  NOeCNO  /  12  /,  NOcG  20/ NU EU4S  /  6,3  / 

) A T A  NAlTMO  /  21  /,  t ALT2D,  HALT  4S  /  16/13  / 

IATA  N3GLI23/NALTU7  /  10,11  / 

)  A  T  A  NOCH  7  J/NKNH20  /  12/21  /,  H7UPCC  /  3.  .142  bo  4  |  je.  ♦  1 6  / 

)ATA  NDCM  TH,N ALYMH  /  11,26  /,  CH4PCC  /  )•  7S 1 640  J  a  r.  ♦  1 6  / 

) A T A  JiJPCC  /  1.2S4S327U»22  /,  CUNPCC  /  2.  1  4442UJ0E,  1  6  F 
IATA  PI  /  3.141S47SS  IS40  / 

IATA  NOUN J2/NFMNU2  /  12/33  / 

3ATA  (  ALTAI  ( 1  ),  I  =1,  4?  )  /  0«,  3.  ,10.,1S.,20.,43.,J0»,jS.,43.,43«, 

*  S0.,SS./bO.,b3.,70.,l3.,O0./H3.,l0.,43., 

*  10D.,10S.,llD«,ll3.,120.,l73.,lJO.,133./i40,,143.,l30.,l33., 

*  l  60. , l 63. , 170. , 173.,  laO. ,183. ,140. ,14s. ,201. ,203. ,210. ,21 3., 


sPCaif. 
3PCM I  4 
SPC<I N 
SPC-IM 

SPLMl* 

SPC'lfc 
SPCpD 
spc«i  i 
SPC^lil 
SPCmIN 
SPC“I» 
SPC«tN 
SPCll  N 
SPCMIN 
SPCMIN 
SPCMIN 
SPC«I N 
SPCH 1 N 
SPCMIN 
SPCNIN 
SPC41N 
SPCMIN 
SPC“1 h 
SPCmIN 
SPC-IN 
SPUN  I  N 
SPC«IN 
SPCMN 
SPCtlM 
SPCNlt 
SPC-IN 
SPCalM 
SPC**IN 
SPC-IN 
SPC»IN 
SPCHN 
SPCN1M 
SPCVIN 
EUNMOl 
A JH-02 
AUHN07 
A.JH*»J7 
AUMNO  J 
AiJN^JS 

SPOIN 

aPCNIN 

spc»i  , 

SPC> IN 
SPC«1 * 
SPC*IS 
s»c-'i*< 
sPC»n 
i.PC-'l  . 
SPC»1M 
Sl’C  •  I  N 
Sl‘C-1  i 
SPCnIN 


‘>4 
60 
hi 
62 
b  j 
h  4 

6  3 
6o 
6  1 
lid 
6) 

70 

71 

7  2 

73 

74 
73 
7  6 
7  7 
7a 
7  4 
80 
81 
82 
a  3 
84 

83 
8b 

87 

88 

84 
80 

41 

42 

43 
41 

43 

4a 

2 

2 

7 

J 

2 

2 

D2 

10  3 
104 

10  3 
10b 

10  » 
I  ON 
10, 
110 
111 
112 
113 

11  4 
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•  223. ,22b. ,230.  / 

tm  values  o in u Vi 

nr*  (ONITt(l), 1-1,18)  / 


iata 


F3R  3  NIGHT 
13*1. t,  2*0.0,  4.20 t*0o, 

3.  JOt *1  0,  9.006*10  / 

P3R  CO  2 

(CU2(1),U1,2S>  /  21*0.0,  1.  306*09,4.836*08,  1.706*08, 

S.  6SE*07  / 

TOE  C02  VALUES  AT  ALTITUDES  TO  DM  0.0  TO  100.  AM  AWE  H6S6T 
111  SUSvDUTlNE  ATMJSU  AT  US1NC  A  CONSTANT  M1I1NU-HAT1J  JF 


SFM  VALUES  12/07/74 


1AT  A 


3.20E-04 

8FN  VALUES  10/01/77 
(AM00AV(1),1*1,21) 


FUR  VO  DAY 

/  1  .3  06*1  0,3.40E*09,  1. 30 6*09, S. 90 6*08, 

7. 006*08, l .7SE *09, 2. 106*09, l . 7SK*09, 
1.2Sb*0  9,8.S(J6*06,S.10c*Q8,  i.  OOt* 08,  1 . 406*0»,6. 40^*07, 2.70 6*07, 
1.306*0  7,  6. 20E*Ob,4. 30e*06, 8. 206*06, 1 . 90e*07, 3.406*07  / 

1FN  VALUES  10/01/77  F3M  VO  NIGHT 

)AT A  (AVJVIT(I), 1-1,21)  /  11*1.906*00,1.006*04,1 .lOoOS, 

2.  30E*0S, 4. BQE*0»,i. 006*06, 2.0 D6*0b, 
4.306*96, 6. 20 E*06, 1.206*07, 3. 40 E* 07  / 

arv  values  u/Os/77  fjm  a  day  ah)  might  MinTAL) 

1ATA  (AN4SDNU),  1*1, 1J)  /  20*  0.  0,  1 . 3  JE*06,  2.  90E*06, 5.  20r.*0b, 

M.bOt  »0b,  1 . 2bE  *07,1.  74E*0  1,2. 2b  6*0/, 

2. 8 2 9 *07, 3. 14 6* 07, 3.306*07,  3.3SE*07,3.  J1E*07,  3.  20».*07  / 

BFN  VALUES  1 l/2b/77  FOB  V  DAY  ANJ  NIGHT  N12J) 

JAVA  (AV2l>JV(1), 1-1,41)  /  2S*  0.  0,  l .  306*04, 3.  Oil  6*u4, 6.  30  K*  04, 

1.20£*0S, 2.00E»OS,3. 106*0  3,4.60  6  OS, 
S.SO6*OS,6.O06»OS,b.40£  *05,  b. 50i »OS,b.  SO£*Ob,  b.  40-  » OS, 

6. 306*05, 6.196*03, S.70t*U5  / 

»FM  VALUES  01/04/73  FOR  32(SOG)  (JAY 

1ATA  (  J2S0G0(i),l-l,47)  /  2.  bOE  *06,  4.  40E  *06,  2.  70,.  *0  7,  1.236*08, 

4. 9  Or.  ,0  b,  1.236,09,  2.  70t*09,  9.  OOt  *09, 

1 . 80e*1  0,  2.706*  10,  3. 306*10,  2.  lOt*  1 0, 1 . 50b*l  0, 1 .  OOE*  1 0, 6.  1  06*09, 
3.106*09,  2. 0SE*09, 3. 60E *09,1.  JOE* 09,  3.  OOE *03, 3. 606*07, 4. 396*06, 
6. 23£*0S,  I.OOE*OS,  1.406*04,  3.  30E*0  3,  7.  1 06  *02,  2.606*02,  1 . 00t*0  2, 
4. 70E*0  1,2.  306*01,  1.206*01,  IS  *6. 10  / 

8FN  VALUES  01/04/7S  F OH  32<SDC)  NIGHT 

0 A T A  (J2S0CV11), 1-1,47)  /  IS*  3.  40,  S.  DOE *02, 1  .OOe *0S, 8 . 60 6 *07, 

2.0  0c.  *0  8,1. 40E  *  OH,  S. 606*07,4.306*06, 
6.206*03,  1.00 6* 03, 1.40 r. *04, 3.  30 6*03, 7. 1 06*02, 2. 60t*02, 1.936*02, 
4.736*01,2. J0K»0 1,1. 206* 01, Is *6. 10  / 

■FN  VALUES  Ob/04/77  FOB  03  lUONE  DAY  (KC/KC) 

JAVA  (JiUAYd  ),  1-1,  2b  )  /  11*0. 0,3.  lt-0b,1.9t -06,1. 0E-0b,S. 36-07, 

2.6E-07,2.96-07,1.26-06,7.0E-07,1.4E-07, 
3. 62-03, 1.2E-0d, 3. 06-07, 7.16-10,1  .S6 -10,4.64-11  / 

BFN  VALUES  OS/04/77  FUR  03  UZQME  NIGHT  (KC/KC) 

TATA  (JJNlr(l), 1-1,27)  /  11*3.0,3. It-Ob, 3. J6-0b,S. 96-06, 4. J6-0o, 

l.SE-06, 2. 66-07, 3.63-06, 4. 0E-06, l . SE-Ob, 
3.82-07,9.96-08/3. 3E- OH, 6. SE- 09, b. 06-10,1 .Sb-1 0, 2 .76-1 I  / 

BFN  VALUES  0S/04/77  FUR  CU  C  AN  BON  NJNUKlOt  (PPMM) 

3ATA  (0  AT  C'J(l), 1-1,31  )  /  0. 1 2  ,0. 1  2, 0.  1 1 ,0 . 0  7  2, 0. 0  34, 0 . 0  4H  ,  0 . 04H, 

0.04  8,  0.  048,0. 0S6,  3. 070,0. I  27,3.  2S4, 
0.442,0.967,2.  210,10.2,18.5,  24.3, 26. 6,  29.  2,  30. 9,  32.0, 32. 6,  33. 6, 
34.4,34.  8,34.8,34.  0,  34.6,34.  1  / 

9FN  VALDES  0S/04/77  FOB  C44  METHANE  (PPMM) 

IATA  (SNETH(t),t-l,25)  /  3*0.  77,0  .bb,0.  bl  ,0. 5  3,0  .  s0,0 . 38,  0.  J1 , 

0. 24,0. 11, 4.766— 2,2. 1 26—2, 1. 346—2, 

8. 36 E- 3,4.806-  3,  2. 696-  3,  1.  84  C-3,  1 . 02E-3 , 8.  77t-4,  7. 036-4, 


sPiV  1  4 
..PC  M  i 
SPC  'IV 
SPCVIV 
SPC“1V 
SPCvIV 
sPC*l  I 
SPCnIV 
SPCnIV 
SPCNIV 
SPC  V i N 
SPC 'IN 
SPCvIN 
SPCNIV 
SPC* IV 
SPCNIV 
SPCNIV 

spcmin 

SPCNIV 

SPC-'IV 

sPCviv 

SPC'IN 

spc*iv 

SPCVIV 

SPCvlh 

SPCNIV 

SPCNIV 

SPC«1V 

SPCnIV 

SPCNIV 

SPCNIV 

spcviv 
SPCNIV 
SPCVIV 
SPCNIV 
SPC*  I II 
SPC*1V 
SPCNIV 
SPCNIV 
SPC-IV 
SPCVIV 

spcviv 

SPCNIV 
SPCvIN 
SPC-IV 
SPCMl V 
SPCVIV 
SPCvIN 
SPCNIV 
SPCNIV 
SPC-IV 
SPCVIN 
SPcvIV 
SPCNIV 
SPCVIV 
SPCVIN 
SPCMIN 


11  3 
116 
111 
I  I  a 
119 
12) 
121 
122 

12  3 
124 
12> 
l  2b 
177 
126 

129 

130 
(31 
(32 
133 
1  14 
1  3s 
I  3o 
(37 
136 
13* 

140 

141 

142 

14  3 
144 

143 
14a 
147 
146 

149 

150 

151 

15  2 
1  S  3 

154 

155 
ISb 
l  S  7 

156 
IS  9 
160 
161 
162 

163 

164 
IbS 
160 
lb? 
168 

169 

170 

171 


•  ».  70E-4,4.40E-4,2.S5E-4,1.0bE-4  /  SHOT. 

3PM  VALUES  05/34/71  F3K  H2 □  VATtK  ( PPMM)  SPCM4 

)ATA  (S20U4(1  >,I  =  l,  21 )  /  2.  23, 2. 39,2.50,  2. 67,2.  74,  2.71,2.  60,  SPCMtb 

•  2. 3b, 2. 10, l.dO,t.bl, 1.2b, 0.93, 0.76, 0.4b, 0.21, 0.06b, 0.018,  J  P  C  **  [  u 

•  0.037$,  0.0053, 0.0040  /  sPCmIM 

OF M  VALUES  07/02/77  FOR  tt  ATOMIC  HVOAOCEV  DAV  SPCM14 

DATA  (DAH0AY(i),l=l,2l)  /  7. 1 E-03 ,7. 6K-0), 1 . Ot-O 2, 1 . 6K-32,  SPCNIS 

•  5.2E-02, J.2E-0l,2. 9t*00, 1.0t»02,  SPC*I«i 

■  4. Of*  04, 1 .0k*  OS, 2.4£»0b,b.l  E*0S, 1.0t»0b,l . 8t*0b,4.9t'*0b,  SPCmIr 

•  1.25E»07,3.SE*07,8.6E*07,7.4E*07,b.UE*07,3. Ut»U7  /  SPCblN 

AM  VALUES  07/02/77  FUR  H  ATOMIC  HVU3UCE*  NlUHT  SPCw|< 

OAT A  (DAMV1T(1),1=1,21)  /  1 5* 0. 0, 5. 0t»02, l . J E*07, A. 6E»07,  SPCm|N 

•  7.4E*07,b.0t*07, J.0t*07  /  jPC«IV 

AM  VALUES  ( Ob/0  2/77 )  FuR  HVQROXVL  KAO  1C  A  L  UH  DAV  SPCM1N 

IATA  (0U80AVU), 1  =  1,21)  /  l  . OE ♦  Ob ,  1. 0E*06,  1.  ObE* Ob,  1.  I bt ♦  Ob,  SPChi* 

•  l.SE*0t>,2.3E*0b,4.0L»0<>,o.Bb»0b,  SPC-1K 

1  I. 35C*  07, 1 .1E+07, 9 ,bC*Ob,7. 2F*06, b.  3K*06,  J.  7t*0b,2.bE*0b,  SPC.41N 

>  l.6E»06,7.0E*Ob,7.0t*Q4,6.iE»0),b.7E*02,b.  7t*01  /  SPC«I* 

SFN  VALUES  (0S/02/71)  FUR  HYDKlUVL  RADICAL  Jll  NtullT  SPCMIv 

IATA  (OQHNlTd),  1=1,21)  /  1 .7  E*  02 , 1 .  8t*0  2,  2.  IE  *0  2, 2.7E  *02,  SPC4I4 

>  4.2E»02,8.1E*Q2,2.0K»9J,d.OE«03,  SPCXl* 

•  b.7S»04,2.9K»0b,1.2E»06,4.4E»Ub,b.5E*0b,5. 9E *0b, 4. SE *06,  SPCMI4 

•  3.2i»0b,l.b£*0b,l  .7E»0b,l  .7E»04,t.7E»03,2.  2t»02  /  SPCM14 

SFM  VALUES  (Ob/02/77)  FJR  HVDA OPEKOIVL  KA01CAL  MU2  DAV  SPC41R 

IATA  IMU20AV(I), 1-1,21)  /  I .3 E*0 j , 7. 5£*0b,2. 4t *0 6,6. 9g* 3S,  SPCVtN 

•  1.15E»07,I.St»07,t.6E»07,I.Sc»37,  SPCM14 

•  1.2E*07,9.1E*O6,6.b£*0b,4.2E*0b,2.2E*06,7.9E*0b,4.2K*06,  SPCN14 

•  1.2E»07,9.2K«Ob,b.7E»04,b.7£*03,4.)E*02,7.4t»01  /  SPCmH 

IFN  VALUES  (05/32/77)  FOR  HVDA OPE RUI VL  RADICAL  HU2  M 1 3HT  SPCPIM 

3ATA  (MU2NIfd), 1-1,21)  /  4 .  )E* 01 , 4.  2E*0 2,  1. 6t  *0  J, b.  9E*0 3,  SPCPIM 

■  1.4£«04,2.7E»04,4.7E»04,d.3E*04,  SPCM1V 

•  l.3E*Ob,2.4E*Ob,4.bE*0b,6.9£*0>,7.JE*05,4.6t*3b,J.5E»0»,  SPC-IR 

•  1.2C»07,9.2E»06,5.?E«04,b.?E»03,4.4E»02,7.4tOl  /  SPCmIK 

«FR  VALUE*  07/02/77  FUR  U(1U>  ATOMIC  UAVCtd.  SPCmin 

IATA  (JIDDA Y(l), 1=1, 33)  /  J»l .OE-02,J.«E-01,2.4t»UO,l.lE»31,  SPCMim 

•  3.9£*0l,1.4E»O2,3.bE»02,b.0E»02,  SPC«IN 

•  b.OE»02,b.OE»02,4.2E»02,2.7E*02,4.6E»01,1.7t»01,1.0E*01,  bPCMlN 
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SPL‘4  i . 

429 

INTH  *  N  4L  T  N  M  -  2 

SPC- 14 

43  0 

:4LL  F ITTEM(  N6TH, 4LTK6 (i),SMETH(J),N004TH,  1  ,  2  ,FF) 

SPC41), 

431 

:H4T(M  *  4CH4FK  10.  ) 

SPOIN 

4)2 

CN4120  *  4CN4 FF(  123.  ) 

SPOIN 

43  J 

SPC.I* 

434 

ft  ft 

•  03  (02064)  PERIMETERS  ••••»  .  .... 

•  03 

SPC  4  14 

4)5 

FOR  U4V  OR  bluHT,  14 IT  1 41.1  ZE  SUBROUTINE  JZUNE  FOR  ZH  .LT. 

55.0 

SPOIN 

4  lb 

.-4LL  0ZJ4£(1,ZH,02)) 

SPOIN 

43) 

(F(  10344  )  162,112,172 

SPC414 

4  JN 

ST4RT  NIGHTTIME  14  IT  1 4L1Z4T10U  FOR  ZH  .04.  5b.  U  KM. 

SPOIN 

434 

162 

£0)655  *  4LTKN( 1 2 ) 

SPOIN 

440 

103055  *  Z 0 3455 

SPOIM 

44  1 

0ET1UM l 4  E  P4R4METERS  FUR  NIGHT  E1PU4ENTL4L  POM 

SPC  414 

442 

10.0  .LT.  ZB  .LE.  75.0  46. 

SPtlll 

44  1 

10)470  >  4LTKN( 15) 

SPC. 14 

444 

10)615  :  4LTKM(16) 

SI’C»14 

445 

40)610  t  0)HIT(15) 

SPOIN 

44o 

10)6)0  a  -4LJC1  (UNIT!  16)/4J3N7U  )  /  (  l  J  J  »  75 -Z  J  J»7  0  ) 

SKCftl  ft 

447 

OETKHHINE  COEFFICIENTS  (40  3(1)  1=1,0)  SO  Tit  IT  5TN-0l.GRafc 

SPC. 14 

44  n 

PQLVN04I 4L  EQU4LS  D4T4  POINTS  4T  55(5)70  K6,  THfc  ( ZERO) 

SPC. IN 

444 

3ERIV4TITE  4T  55  (6  (IF  THE  FIT  FUNCTION  4  EL  Da  55  KM,  443 

TMt 

SPC.) N 

«*»0 

(H3NV4N1 SH1NC)  DKHIV4TIVE  4T  10  KM  OF  THE  70-  TO  75-KM  FIT 

SPC. IN 

45 1 

FUNCTION. 

SPOIN 

452 

FUJ(S)  3  4L0C 1 0( 0341 T(  1  2  > ) 

SMCftl ft 

4*.  i 

I0)( 5)  *  0.0 

SPC. 14 

45  4 

>0  164  1*1,3 

SPC  4 l N 

455 

2112  *  4LTK6(1»12)  -  20)456 

SPC4IN 

4t»o 

159 


1(1,0  «  1112*011 

SPCMU 

4‘.  / 

1(1, >>  *  ALOClOl  UJMITMM2)  )  -  1112*VUJ<5)  -  *J3(b) 

5PC“t  M 

(‘>4 

)J  164  J-1,3 

SPC  K 1 N 

454 

Ml, 4-J)  «  Ill  2*  A(  I,  5- J) 

SPCMIM 

460 

u« 

CONTINUE 

SPC"I i 

4b  1 

1118  *  ltDN70-2OJN55 

SPCMIM 

46? 

1(4,0  *  2. *1118 

SPCMIM 

46  3 

1(4,0  «  -93)M70*1LJ»TE  -  VU)(5) 

SPCMIM 

46  4 

jo  to  j  =i , 3 

51'CMtN 

4b  j 

r j  -  j*i 

SPL'MlN 

466 

1(4, 4-J)  x  2II8*((PJ»1.)/FJ)*A(4,5-J) 

SPCMiM 

46  7 

16» 

continue 

SPC“IN 

464 

19  x  4 

SPC41N 

46  4 

CALL  S3LVE(1,¥UJ,M0) 

5Pt**IS 

470 

c 

OETERM 1 VK  PARAMETERS  FOR  MIGHT  LAP JNKNTlAL  F  JR  L  H  .lit.  ,0.0 

KN 

S PC Ml  8 

471 

10300  x  ALTKNtlO 

SPC  *  1 8 

47  2 

103*30  x  0  )MI  T(  1 9) 

SPC  m 1 M 

47  1 

103140  x  -ALUC(  0381 T( 22)/ 1031 90  ) /( ALTKH( 22) -2 JJa 90 ) 

SPCMIM 

474 

c 

JETEKNINE  5TH-0EGREE  POLYNOMIAL  ICJEPF  ICi  ENTS  xJJll)  Ixl,o) 

TO 

SPC  *  1 8 

47s 

c 

411CH  DATA  Pours  AT  70(5)90  1M  AND  DERIVATIVES  OF  7D-TJ-75- 

KM 

SPCMIM 

47  <. 

c 

FIT-FUNCTION  AT  75  EM  AND  .(U.-90. O-KM  FIT  FJNCriON  Af  90.0 

KM 

sPCmIM 

477 

803(1)  x  ALOC10(  U3N1T(16)  ) 

SPCMIM 

47  s 

803(3)  x  -3J3N70*AL3CTE 

SPCMIM 

474 

>0  1*8  1x1,3 

SPCMIM 

480 

1112  x  ALT  14(1*16)  -  1Q3N75 

SPCMIM 

481 

10,0  x  1(12*1112 

SPCMIM 

482 

1(1, 5)  X  AL9C10(  Ulair(l»lb)  )  -  1II2*N03(S)  -  8 J 3(b) 

SPCmIM 

48  3 

30  168  J»l,3 

SPCMIM 

4b  4 

1(1, 4-J)  x  1112*1(1,  S-J) 

SPCMIM 

48  5 

IH 

:3Btibiie 

SPCMIM 

48b 

1118  X  2 U3N 9 0-20 38 75 

SPCMIM 

487 

1(4,0  x  2. *11(8 

SPCMIN 

488 

1(4,5)  x  -8 J3N90 * ALJOTE  -  803(5) 

SPC**18 

484 

)0  170  Jx( , 3 

SPCMIM 

490 

FJ  x  J.( 

SPCMIM 

491 

1(4, 4-J)  x  1U8*((FJ*1.)/FJ)*A(4,5-J) 

SPCMIM 

442 

111 

:jitinoi 

SPCMIM 

49  3 

80  x  4 

SPCMIM 

444 

(TILL  SOLVE (1,803, 80) 

SPCMIM 

495 

2D  T3  178 

SPCMIM 

49b 

c 

srur  daytime  lairiiLUtnoa. 

SPC"IM 

49  7 

c 

DETERMINE  PARAMETERS  FUR  ItV  E1P08K8T 1 AL  FUR  2H  .CE.  40.0  KM 

I. 

SPCMIM 

49  o 

171 

103040  x  1LT1M( 1 9) 

SPCMIM 

44  » 

103D40  x  030 AT (19) 

SPCMIM 

50  3 

103090  x  -AL04(  0301 »(  22)/ A03090  )/(  ALTKM(  22 ) -10)040  ) 

SPC  M 1 N 

501 

c 

DETERMINE  5TH-0EC2EE  POLYNOMIAL  (COEFF (C 1  ENTS  T03(I)  (=1,6) 

TU 

SPCMIM 

502 

c 

4ATCH  DATA  POINTS  AT  55(5)75  (M  INI)  THE  (ZERO)  DERIVATIVE  OF 

SPCMIM 

50  3 

c 

TH1  0-TO-55-EM  FIT  FU8CT13V  AT  55  KM. 

SPCmIM 

50  4 

103055  x  ALTEM02) 

SPCMIM 

50  5 

103855  x  233055 

SPCMIM 

50o 

10)075  x  ALTKNU6) 

SPCmIM 

,07 

r03(6)  x  ALUC10(03DAV(  12)) 

SPCMIM 

508 

ro)(S)  x  o.o 

SPCMIM 

50  4 

JO  130  1x1,4 

SPCMIM 

510 

1112  x  ALTKM(I«12>  -  10)055 

SPCMIM 

511 

1(1,4)  x  2112*1112 

SPCMIM 

512 

1(1,5)  *  AL0610(030AT(1*12))  -  1112*703(5)  -  Tu3(b) 

SPCMIM 

51  J 

160 


onnnnnn  no  non 


JO  UO  J=t,3 
4(1, 4-J)  * 

189  CONTINUE 
Id  s  1 

CALL  S)LT£(A,T  03, NJ) 

D£TiKMlNE  5T  H- D£  uKEE  POLTNOhIAL  (  COEFE  ICl  ckT,  UJUI)  1*1,  ft)  TU 
DATA  POINTS  AT  75(5)90  KM  AND  DtKITATITES  uF  S5-TU-7S-AH  FIT- 
PUNCTlJN  AT  7S  AN  AND  .  G  E. -VO.  0-A  N  F1T-FJNCTI0N  AT  40.  D  KN. 
J0m>  *  ALOClO(  U30  AT  (  l  b  )  ) 

II 18  *  ZU307S-ZQ3055 

303(5)  *  (((S.*TOJ(l)*Z118  ♦  4.*T33(2))*Z1IB  ♦  3.  *TU3<  3 )  )*<UB 
•  ♦  2.  *T03l  4  )) *< 1 1  B  ♦  TU3(  S3 

HI  174  1*1,3 

<112  *  ALTKN(I*16)  -  ZU3U7S 
All, 4)  *  <112*2112 

1(1, i)  *  ALQG101  030 AT (1*16)  >  -  <112*UQ3(S)  -  UJJ(6> 

30  174  J*t , 3 

A( 1,4  —  JJ  *  <1 1 2* A( 1, 5- J ) 

174  C UNTINUE 

<118  *  ZU3D90-ZU307S 
1(4,4)  *  2. *<118 

1(4, >)  *  -8 33090  * ALOCTE  -  UJ3(S) 

30  176  3*1,3 
'J  =  J*1 

A(4,4-J)  *  <I18*((FJ*1.)/F3)*A(4,>-J) 

1 76  CONTINUE 

10  =  4 

CALL  S3LTE(A,UO3,N0) 

17*  CONTINUE 

•  •  •  PIT  C3EPPICIENTS  PUK  NO 2  (OAT  AND  NIGHT)  * . . 

CALL  P IT TEM( N  A  "N  02,  ALT  AN,  , Hu  20 , NOG  NU2,  1  ,  2  ,HH) 

IN02IO  *  ALT1N( 29) 

IN 32  20  *  ALT1N(33) 

AN02P0  *  AN02PP(  HN0270  ) 

4N32DD  *  8N0210-8N3223 

110212  *  ANJ2FP1  HNJ21D  )  /  AN  02  PD 

PN32SS  *  ANJ2PP1  55.  3  ♦  ANJ0AP(  55.  )  -  A  NOD  SS 

IN  32  55  *  SN J2N ( 1 4) 

INJ2SS  *  ALTAM( 1 2) 

IN 32 65  *  ALTKN( 14) 

4N020N  *  HN0255-HN0265 


IN  327  A 

AN  32  8  2 
(N  3292 
NNJ20B 
1N3212 


K  NO  25  5/ AN325S 
ANJ2PP1  82.  ) 
8  2. 

HNu2b5-HNU282 
ANJ265/  ANJ2  82 


•  riT  C3EPP 1C ItNTS  PUN  NATtK  •••••••••  .  •  M20 

IP  NTFLIU  .NE.  0.0,  USE"  MUST  SUPPLT  TABJbAR  •  At  Ek-V  At*  UK 
PKOriLK  (THUN  0.0-  TO  120.0-A4  ALTITUDE)  NHlCll  IS  «tA3  HV 
SUBKiWTf  kE  nTuPT.  (k  UPEkATIJNAL  PhA,r.,  SOddUOTIdt  NT  JfX 
Pe8FiN<85  A  LUGARITIHIC  1  NT  EH  POL  AT  i  ON  TO  ItTURN  THE  n  2  J  "AS,- 
4111  NO  RATIO. 

IF(  NTPL AG. NE. 0. 0  )  03  TJ  17) 

THIS  INITIALIZATION  CALL  TO  SlUNJ'ITINt  klTtX  -VALUATti  Tile. 
IN3KA  (A  FUk  TIE  JUASl-NUNOGENtOJS  "JldTJRc.  Nt.utON  AND 


SPC" IN 

>14 

SPCMlN 

515 

spcmin 

51  o 

SPC«lk 

517 

SPC"lk 

518 

SPC  H l N 

51  i 

-»PC"lk 

5  20 

SPC"  l  N 

521 

SPC* IN 

522 

SPC"I4 

52  J 

SPC  4 1 N 

524 

SPC"IN 

525 

SPCM1N 

5?o 

SPC"14 

52  7 

SPC" IN 

52H 

SPC" I N 

529 

SPC"1N 

530 

SPC" 1 N 

SJl 

SPC " 1 k 

S3  2 

SPC"  IN 

S3) 

SPCHlk 

5  34 

SPC" IN 

535 

SPC"lN 

530 

SPC "IN 

5)7 

SPC" IN 

538 

SPC"IN 

534 

SPC"  ik 

540 

SPC" 1 N 

54  1 

SPC "  1  k 

542 

SPC" 1 N 

543 

SPC"lk 

544 

SPC"1N 

545 

SPC" IN 

54b 

SPC"IN 

547 

SPC"1N 

54  d 

SPC"lk 

54  N 

SPC"IN 

550 

SPC" IN 

SS  1 

SPC "IN 

55  2 

SPC" IN 

55  3 

SPC" 1 N 

55  4 

SPC"»  N 

55  5 

SPC"lk 

55  o 

spc«i  k 

55  1 

SPCslN 

55  8 

SPC"lk 

55  4 

SPC" IN 

560 

SPC*  Ik 

5b  1 

,PC*IN 

56  3 

sPC"  Ik 

5b  > 

SPC" IN 

56  4 

SPC*.  IN 

5b  5 

SPC"  Ik 

»6i» 

SI'C"»N 

1 

SPC-lk 

*l|»  £1 

SPC"1 N 

56  < 

Sl*C"l  N 

,70 

on  on  on  on  on  noon  noon 


EVALUATES  THE  LOGARITHM  OF  THE  1120  MIXING  RATIO  IT  b-  1NU  14- 

SPCMlN 

j7  1 

CM  ALTITUDES.  THIS  1  HI f 1AL1 Z1 T 1 38  ALLURS  SU axuU T I Nt  RATER  IN 

SPC-lN 

,7  2 

THE  OPERATIONAL  PHASE  IU  OUTP'JT  THE  H2U  4U1NC  RATIO  ( PPM) 

SPC“IN 

s7  » 

FUR  ZH.LT.4S>  KM. 

SPCMlN 

s7  1 

CALL  NAf  KKll,ZH,CH2j) 

SPC“l» 

»7  i 

808  DETERMINE  THE  H2U  NASS-MII IMC-RATI U  f  l  T-COoFF  I C 1 EN  TS  CC 

SPCMlN 

S7b 

F0<  THE  ALTITUDE  RANGE  FROM  20  TO  120  KN,  EVER  THOUGH  THE  FIT 

SPC«*1N 

S77 

FU8CT10H  HILL  BE  USED  18  THE  OPERATIONAL  PHASE  ONLY  FOR 

SPC“IN 

S7H 

4S.LE.ZH.LT. 120  AN. 

SPCmIN 

b79 

CALL  FITTeR(  NKMM20,  ALTXH(b),H2nON(  1 ),NDLH  20/  1/2  ,CG) 

SPC-IN 

bbd 

THE  VALUE  OF  THE  4ASS-N1X1NG  RATIO  AT  120  AN  IS  NEEDED  FOR  THE 

S  PC  M  l  N 

Sdl 

OPERATIONAL  PHASE. 

SPC“1N 

SB  2 

123120  S  AH20FF1  120.  ) 

SPCN1N 

b8  i 

179 

CONTINUE 

S  PCM i N 

SB  4 

SPCMlN 

iBb 

•  • 

•  Fir  COEFFICIENTS  FOR  ATONIC  HYDROGEN  •••*••••••••» 

SPCMlN 

'iH(i 

HSb  =  9.0b*07 

SPCMlN 

Sd7 

1100  a  3. 77E*12»EXP(-0. 1174*100.)  ♦  4. 07E*06*100. *>(-0.71691 

SPCMlN 

jd  d 

3861 00  =  14./1LUGIH3S/M100) 

SPCMlN 

SB  1 

IF (  I09RN  )  1071/1072/1072 

SPCMlN 

b4  0 

1071 

S80  *  6.0/ ALOC(H86/D AHN I T(  17)1 

SPCMlN 

S91 

S8S  a  2. 20  * ( SdO  -  6. 0/ ALOG( HB6 /DAHN IT i 1 6 1 ) 1 

SPCMlN 

b92 

30  TO  1070 

SPCMlN 

b9J 

1072 

330  a  0AHUAV(7 ) 

SPCMlN 

S44 

13S  a  9AHDAH (8) 

SPCMlN 

S9b 

H4  3  a  DAHD1U9) 

SPCM1 N 

S9b 

S303S  a  b. 0/ ALOG (H35/H30) 

SPCMlN 

S97 

S3S40  a  S. 0/ ALOC( H40/H3S ) 

SPCMlN 

b98 

S40H6  a  46./ ALQG(Hd6/H40) 

SPCMlN 

S99 

1073 

CONTINUE 

SPCMlN 

ooa 

SPCMlN 

oO  1 

•  • 

•  FIT  COEFFICIENTS  FOR  HTOHUXVL  RADICAL  •••••••••••  UH 

SPCMlN 

bO  2 

(Ft  IDORN  )  181,132,182 

SPC-IN 

bO) 

181 

AOHIOO  a  DOHNITt  21) 

SPCMlN 

o0  4 

CALL  FITTcRt 17,ALTKN,QQHNIT,  7,  1,  2/CCOH) 

SPCMlN 

bO‘j 

CO  TO  194 

SPCMlN 

bOb 

182 

AOHIOO  a  0  JHOAY (21) 

SPCMlN 

607 

CALL  FITTlR(17/ALTXN,DOHDAV,  7/  1/  2/CCOU) 

SPC-IN 

609 

184 

10H090  a  AOHONF <  80.  ) 

SPCMlN 

bOM 

1DH010  a  - ALOG t  AON 100/ A OH 080 )/ {ALT KNt  2 1 ) -ALT X  Ml  17)) 

SPC“IN 

blO 

SPCMlN 

oil 

•  a 

•  FIT  COEFFICIENTS  F  Ok  HYDRUPERQX* L  RADICAL  •••••••••  H02 

SPCMlN 

61  2 

IF {  IDORN  >  186,199,189 

sp  :mim 

bl  J 

tes 

C0NT1N3E 

SPCm 1 N 

61  4 

CALL  F IT TEK(  14/ ALTXN/H02 NIT,  1,  l,  2/CH02) 

nl  ^ 

CD  TJ  190 

SPCMlN 

ol  f> 

18i 

CONTINUE 

SPCMlN 

bl  7 

CALL  FI  T  Tt  R(  1 4,  ALTKN/H020  A  Y,  6,  1,  2,CKU2> 

SPC-IN 

ul  d 

CH0218)  =  0.0 

SHC“l N 

bl  i 

190 

AHJ27S  a  H02DAVU6) 

'S 1'  O  M 

b  2  U 

AH329b  a  H32DAU20) 

SPC‘  1  N 

b21 

IH  0  2db  a  AII32FF(  t>5.  ) 

b22 

3HJ25S  a  -ALOCt  AHo27b/  Att026b  )/  ( ALT KM(  1  6 ) -ALTX  Ml  I  1 )  ) 

SPCMlN 

O  /  J 

3HJ2»b  a  -ALOG(AHO29b/AllJ27b)/lALrAMt20)-ALTA«tl6>) 

fi2  1 

102100  a  AHU2  J5*EXP(  - BH027S  •( 100.  -  7b. >  > 

b  **o*i  s 

b?  . 

-»KC  •*  i  S 

O  l  ii 

•  m 

*  F 1  f  "  i  fj(  F IC 1  ENTS  F  JR  ATOMIC  UXYCE6  •••••••••••  i)(U) 

M  l 

1>«!  / 

162 


1  r (  (DOWN  )  1082,1081,1)81 

SPCM IN 

02  H 

1)81 

1047  *  7 . 0 £ »02 

SPC«IM 

(.?/ 

3025  *  010147(6) 

SPCMlN 

biO 

1040  s  uiddavid 

SPCMlN 

oil 

1065  *  310047(14) 

SPCSIN 

b)2 

1080  *  010047(17) 

SPCM IN 

bii 

30100  e  010047(21) 

SPCM  18 

o  J  4 

10110  e  010047(21) 

SPCMIR 

6  Jb 

10120  x  1110047(25) 

SPCM  1  8 

bib 

30160  e  O10047()i) 

SPCMIM 

bl  7 

S0049  e  7. 0/ALUC(OD47/OO4O) 

SPCM IN 

b)H 

>00474  e  (22. /lb. 1*03040  -  7.  0/ALOC(OD47/OD25)  ) 

SPCM  IN 

bl) 

SOObS  e  18 . / ALUC(  0047/0)65) 

S  PC  SI  N 

bMO 

$0)478  e  ()3./15.)*(SJ065  -  18./ ALOC(  OD47/ODBO)  ) 

SPCM  Ik 

o4  1 

$801)0  e  20./ALOClO0l00/tlj80) 

SPCS1N 

64  2 

$00110  e  10./4LOC(OOl20/ai)UO) 

SPCM  1 H 

64  ) 

$00120  e  2.0*1 SUD 110  -  10./4L3C( 00 120/00100)) 

SPCM 1 n 

644 

$1)120  e  40. / ALUC( 0) 1 2  0/ J J 1 60 ) 

SPCM IN 

645 

1)8) 

;3IT181K 

SPCM I N 

b4b 

C 

SPCM | N 

b«7 

c  *  * 

•  fit  coefficients  for  nitrous  oxide  ••••••••••••  mu 

SPCM  IN 

tf 

C4LL  FITTER!  1  2,  ALT!  N  ,)B20,  8  ,  1  ,  2  ,C820) 

SPCM  l  i 

64  0 

782055  e  4N20rF(  55.  ) 

SPCsIN 

tib  0 

BLEXP  E  l.0/(  1.0  »  EXP(  0. 17* (P 1PL4T  -  21.)  1  1 

SPCM i N 

651 

1ETUB8 

SPCSIN 

0'j2 

cc 

SPCW  |  N 

651 

cc 

SPCSIN 

65  4 

209 

CQITIBUE 

SPCM1N 

6b ‘j 

1  r C  IH.Nt.ZHFLAG  1  CALL  ATMOS Ul  2,  Hi) 

SPCM  |  N 

65  6 

cc; 

SPCM  IN 

657 

c 

48  4RM0NE0US  008017108  8ILL  OCCUH  IP  SPC41N  IS  CALLED  81 TN 

SPC“I 8 

6b  tt 

c 

44=2  480  4  C1VE8  VALUfc  UF  ZH  IF  ATNOSU  HAS  8 JT  dEEN  74LLK3 

SPCMIk 

65  7 

c 

FUST  81TH  44=2  480  FJ8  TIE  S4NE  74LUE  OF  ZH. 

SPC-IN 

660 

c 

THE  VARIABLE  ZHFLAC  1$  JSaiD  T3  DETECT  THIS  C0801T10N  48) 

SPC'.IM 

66  1 

c 

TO  8  44  4  THE  REQUIRE)  C4LL  TU  4  THUS) . 

SPCMIM 
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SPCmIN 

dBB 

CO  TO  2268 

srcMiN 

(Mj  * 

2262 

tr(  18.CT.40.  )  CO  TJ  2266 

SPCMIN 

690 

iri  IN.CT.J5.  )  CO  TJ  2204 

SPCMIN 

H9I 

181(17)  x  H)0*CXP((Z8-30.)/SJ936) 

SPCMIN 

69/ 

181(17)  x  AMAIK  1.0/181(17)  ) 

SPCMIN 

69  J 

50  TO  2268 

SPCMIN 

694 

2264 

181(17)  x  9JS*EXP((Z8- JS.  )/s3540) 

SPCmIN 

696 

CO  TO  2268 

SPCMIN 

096 

226S 

181(17)  x  940*EIP(( Z8-40  .  )/240  So) 

SPCMIN 

d9  7 

50  TO  2268 

SPCMIN 

89d 

22M 

IP(  I8.5T. 100.  )  CJ  TO  2267 

SPCMIN 

181(17)  x  H86*8IP(-(  18-86.  )/  S861 00  ) 

SPCmIN 

900 

50  TJ  2268 

SPCMIN 

901 

2261. 

181(17)  x  J.77(»12*6IP(-0.1174*ZH)  ♦  4 .07E*0fc*ZH**l-0.7l69> 

SPC«1N 

90  2 

2268 

C08TIB0I 

SPCMIN 

90  J 

C 

SPCMIN 

»0  4 

c  •  * 

•  •  COMPUTE  OEMS  ITT  OT  STOKJITL  RADICAL  OH  •  •  •  •  •  •  S81(1B)xiIH 

SPCMIN 

90  6 

in  18. CE.  100.  )  CJ  TO  265 

SPCMIN 

906 

1 r (  ZH.se.  80.  )  CJ  TO  260 

SPCMIN 

907 

181(11)  <  AJHUif (  l 8  ) 

SPCMIN 

906 

50  TJ  266 

SPCmIN 

90  9 

268 

181(18)  x  AJH0B0*eIP(-BOH080*(  ZH-80.  )> 

SPCMIN 

910 

50  TO  266 

SPCMIN 

911 

26S 

181(18)  >  10.  »  2.  *(408100-10.  )/(t  .  0»EZP(0. 46*(  ZB- 100.  )  )) 

SPCMIN 

912 

167 


u  u  uu 


266 

CONTINUE 

SPC  *1  « 

91  ) 

c 

SPC9I9 

<14 

c 

ft  ft 

*  •  compute  density  Honor  mu*  re  medical  it  02  •  •  •  •  shiud-hui 

SPCMIN 

*1  0 

1P(  tM.SE.100.  )  CJ  TO  269 

SPC*l* 

<16 

in  iH.ee.  is.  >  cj  ro  2&s 

SPCMIN 

ill 

irt  IH.CS.  65.  )  GO  ro  267 

SPCM19 

lid 

INK 19)  =  AM02KP<  26  ) 

SPCMIM 

919 

:o  TJ  270 

SPOIN 

929 

262 

SNK19)  »  480265* EXP (- UNO 265 •(  ZH-65.  )  ) 

SPCMU 

921 

10  TO  270 

SPCMIN 

92  2 

269 

PZ75  a  1.0 

SPCMIN 

92  J 

IP(  1H  .LT.  85.0  )  rZ75  =  10.0**(  1.0  -  0. 2* Ad  SI  2H-80 . )  > 

SPCMIN 

924 

161(197  =  PZ7S»AHU275*EXP(-BH0275*(ZH-75.)) 

SPCMIN 

92  5 

:o  TO  270 

SHCll* 

925 

261 

161(19)  a  M32100*SIP(*0.37I*(ZH-100.)) 

SPCmIN 

9  21 

270 

COiTIHOk 

SPC* In 

97  o 

c 

SPCmIn 

97  1 

c 

•  ft 

*  *  COMPUTE  DENSITT  OP  6TOM1C  OITSEN  U(IO)  •  •  •  •  SMI l 26)aOl l D) 

SPC“lfc 

9JJ 

tr(  (0066  )  271.272.272 

SPC* IM 

911 

271 

$61(26)  =  1.0 

SPCMIN 

9)7 

:U  TO  279 

SPCM1M 

9)  J 

272 

1P1  26.er.160.  )  CO  TO  278 

SPCMIN 

934 

If(  XH.CT.120.  )  CJ  TO  277 

SPCM1N 

ir(  XH.CT.100.  )  GO  TO  276 

SPCMIN 

91o 

tr(  26. ST.  90.  )  GO  TO  275 

SPCMIN 

9  J  7 

ir(  26. er.  47.  )  go  ro  274 

SPCmIN 

939 

(P(  2U.CT.  20.  )  GO  TO  270 

sPCmIN 

919 

161(26)  =  1.0 

SPCMIN 

940 

50  TO  279 

SPCmIN 

<41 

271 

sorzi  a  SuO 4  71  -  ( S00471-S0043 )•( 4 7 .-2H)/7 . 

S<*C  Min 

94  2 

161(26)  =  3D47*ElP(-(47.-EH)/SOPZt) 

SPCMIM 

94  J 

161126)  a  1N1X11  1.0.361(26)  ) 

SPC  UN 

944 

CO  TO  279 

SPCmJN 

945 

276 

sorzi  a  S0J478  -  ( S0047tt -SOU 63 )• (2 H-47 . ) / 1 8. 

SPCmIn 

94  6 

161(26)  =  O047»EII>(-(X«-47.>/SOK2»> 

SPC-UN 

94) 

33  T)  219 

SPC .  1  M 

94  8 

275 

161(26)  a  0080 *E XP{ (  ZM-90 .)/ S9 01 00 ) 

SPC*  IM 

94  9 

30  TO  279 

SPC  m  In 

950 

276 

sorze  a  SOD120  -  (S0D1 JO-SOJllO)*l 120.-ZH1/1). 

SPC*  IN 

951 

161(26)  a  30120*ElP(-( 1 20.-ZH) /SOPZC) 

SPCMIM 

95  2 

CO  TO  279 

SPC«lM 

95  J 

277 

161(26)  =  Q0120*EXP(-(xm~120.)/S19120> 

s pcm in 

95  4 

JO  TO  279 

SPCMIM 

955 

276 

161(26)  a  (  00160/ S3200  )  *  S6 1(  3) 

SPCMIM 

956 

279 

COITINUt 

SPCMIM 

957 

c 

SPCMIM 

95  8 

c 

<»  * 

•  *  COMPUTE  OEMS  ITT  OP  NlTkJUS  OXIDE  620  *****  ■  16l(21)*M2U 

SPChlM 

959 

IP(  ZH.GE.55.  )  CO  TO  280 

SPCMIM 

960 

161(21)  a  162UPP (  Z6  ) 

SPCMIN 

961 

10  TJ  291 

SPCMIM 

96  2 

260 

161(21)  a  CM 2055 

SPCMIM 

96  0 

261 

CSHADC  *  0.26*(ZB-30.) 

SPCMIN 

96  4 

COSHZ  a  (CXP(»CSHZRC)  ♦  EXP1 -C SH IRC  ) )/ 2. 

SPCMIM 

965 

JUMS61  a  SMI  ( 1 )  ♦  SMI(  2)  *  S6K3)  ♦  SMI(4>  *  SNI(5)  ♦  SM!(b> 

SPCMIN 

9bo 

$61(21)  a  1.0t-09*SUMSNl*SNl(  21)  *(  1.0  *  BLEt  P*  2.  92/(  1 .0*C11SIU)  ) 

SPCMIM 

967 

290 

9ETU66 

SPCMIN 

96  6 

160 

SPCMIM 

964 

cc: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 

ccc 

ccc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 


SUaH3UriNE  TEMPI H 

SUBROUTINE  TEMPZH  Ot.Te.WMlM  t->  THE  TEMPtRATURt  PHUFlLt 
(TABULAR,  0(4)120  KM)/  UT  INTERPOL AT INC  THE  DATA  BASE 
(OS  STD  (966)  FJR  LATITUDE  AMO  SEASON,  Tj  BE  USED  AS  INPUT 
TO  THE  MAJOR  ATMOSPHERIC  SPECIES  MODEL  F  JR  Tilt  LUn-ALT  1TUUE 
BASSE'  PROM  0-  TO  120-ZM  ALTITUDE. 

THE  US KB  MAT  BTPASS  TmE  ODE'S  SPECIE ICAf ION  UP  TEMP  EH  ATU W  E 
PR3F1LE  IN  THE  L3M-ALT1TU3F  (9  TO  120-KM)  RgblON  BY  — 

(I)  REJU (KING  TUE  UHIVIAC  KOUTIME  TO  SET  TPPLAG  TO  A  NONZtRO 
VALUE/  WHICH  IS  TRANSFERRED  TO  SUBROUTINE  TEMPZH  THWJUCH 
COMMON  ZHTEMP,  AMO  (2)  ALLOMIVC  SUBBJtlTlNt  TtMPZH  TO  HEAD  THE 
USER-SPECIFIED  PWOriLb  AT  ALTITUDES  ZZ  =0.  0(4. 0)  1 20.  Km  . 

THIS  IS  A  MEN  ROUTINE  FOR  ROSCOE-IH. 

INPUT  PAHANETEHS 
TIME  COMMON 

PLAT  x  NORTH  LATITUDE  OF  POINT  P  (wAUIAkS) 

FST  x  ENACTION  OF  SUMMER  TEMPEWATJWt  PROFILE  TO  HE 
USED,  M1TH  ( 1 .-FST)  UF  THE  N1NTEW  TEMPtRATURt 
PROFILE/  IN  DETERMINING  Tllb  TEMPEkATUUE  PROFILE 
FOR  A  GIVEN  OAT  OF  THE  YEAW  AT  A  GIVEN  LATITUDE. 
ZHTEMP  COMMON 

TP FLAG  x  FLAG  FOR  OPTIONAL  TREATMENT  OF  TlNPLwATUHE 
PROFILE. 

. Ea .  0.9  NOWMAL  TREATMENT 

.RE.  0.0  OPTIONAL  TREATMENT/  ALLOWING  SU3ROJT1NE 
TEMPI  H  TO  RF.AU  THE  US  ER-SPLC  I F  I  ED  PROFILE  AT 
ALTITUDES  ZZ  x  0.0(4.0)120.  KM. 

OUTPUT  PAHANETEHS 
ZHTEMP  COMMON 

(  T  ZH(  I  ),  I  =  1/  31)  X  TEMPERATURE  PROFILE/  DETERMINED  BV 
INTERPOLATION  OF  THE  D.TA  BASE 
(US  STO  1966*  FOR  LATITUDE  AND  SEASON, 
USED  AS  INPI  TO  THE  MAJOR  ATMOSPHERIC 
SPECIES  MODtt  FOR  THE  LUH- ALTITUDE 
RANGE  FROM  0-  TO  120-AM  ALTITUDE. 

COMMON/  TIME/  I  VMS,  (MOHS,  10  ArS/ZT /PLAT/PLUN/UT  ,G  AT/FVR/PS  T,  RH05KM 

*  /CHI 

C0NM3N/ZHTKNP/  NZHT ,ZHTZ( 3 ) ,ZHT(3 I )/TZHZ( 3), TZH( J1 ) ,TPP LAC 
31MENSI3N  ANNUAL! )  1  >,TMPJAN(31,  4),TMPJUL(  31/  4) 

ZHT(I)  ARE  THE  (MZHTxJl)  ALTITUDES  AT  MHiCH  THE  TEMPERAtURC 
PROPILES  ARE  DEFINED. 

3AT  A  (ZHT(  I  ),  1  =  1,31 )  /  0.  0,  4.  0,  8.  0, 1 2.  ,  lb.,  2 0.  ,  24. ,  28.  ,  32  . ,  36 . , 

*  40. ,44. ,48. ,52. ,5b., NO. ,64. ,60. ,72. ,76., 

*  BO., 84., 88., 92. ,96. ,100. ,104. ,108. ,112. ,116. ,120.  / 

ANNUAL! I ),  TEMPERATURES  P3H  15-DEC  N  ANNJAL  PROFILE  (OS-66). 
3ATA  (ANNUAL!  I),  dl,  31)  /  302.99/  277.  44,  250.  J),  22  3.  64,  1  »7  .02, 

•  206.71,  2 1  9.  23,  227.  94,  23b.  63,  24-/.  32, 

•  2Si. 99, 262. 66,270. 1 5,269.24/ 261. 39, 253.  1 0,2 J9. 40,225. 72, 

•  21 2. 06,1 98 .41, 184. 78,177. 10,  177.  05,179.50,109.77/190.70/ 

»  2  0  5.  98  /  229.78  /  25  3  .  29  /  3  1  9.82/  3  7  9  .  70  / 

TNPJANO/l),  TEMPERATURES  FOR  30-DEC  N  JAM.  PROFILE  (US-ba). 
3ATA  (TNPJAK  1, 1  ),I«1 ,31)  /  2  88.52/268. 44,242.32 , 216.  40, 205.  91, 


T  tMP  Z  il 
TEMPER 
TtMPZH 
TEMPZH 
tkmpzh 
TeMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TtMPZH 
TES.-ZH 
TEMPZH 
TEMPZH 
TtM“ZU 
TtMl'ZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TtMPZH 
TEMPZH 
TEMn  ZH 
TEMPZH 
TEMPZH 
TbMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TbMPZH 
TtMPZH 
TtM»ZH 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
KOM-J7 
AJMMi  7 
A.1MN1  J 
TEMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TtMPZH 
TEMPZH 
TEMPZH 
TtMPZH 
TtMPZH 
TEMPZH 
TEMPZH 
TEMPZH 
TtMPZH 
TEMPZH 


2 

) 

4 

9 

b 

7 

H 

) 

10 
II 
1  2 

13 

14 

19 
1  b 

17 
Id 
I  7 

20 
71 
22 
7  1 
24 
29 
2b 

27 
2<* 
2 * 
JO 
31 
)z 
31 
34 
39 
3b 
37 
33 

39 

40 

41 
2 
J 
2 

44 

49 

4b 

47 

4  d 

49 

50 

51 

52 

5  J 
54 
59 
5o 
57 


169 


•  207.92,216.90,224.03,212.74,242.14, 

•  251 .62*  2tol ,00,2b9. 1 5, 2o0. 14,260.28, 252.  04,239. 90, 227. 17, 215.66, 

•  203.56,  191. 47,  191. 10,  191. 04, 199. 56, 211. 72, 222.4  J,  2  Jl.dtf, 256.66, 

•  275.76,304.46,333.30  / 

TNPJAN(l,2>,  TEMPERATURES  FUN  45-DEb  M  JAN.  PROFILE  (JS-6b>. 
JATA  (TMPJAN(I,2),l-l,Jl)  /  272.59,255.79,231.72,  210.66,216. 67, 

■  215.15, 215. 15, 215. 05,219.02, 230.92, 

•  243.17,255.41,265.65,265.65,256.63,250.77,242.93,234.76,226.54, 

•  210. J4, 210. 14, 201. 89, 199. 54,201.0 2,210.50,21 6.56, 232.65,250.50, 

•  260.65,301.06,333.30  / 

f NP J AM(  1 ,3 ),  TEMPERATURES  POB  60-0EC  «  JAN.  PROFILE  (US-66). 
UTA  (T K*JAN(  1,  3), 1*1, 31)  /  257.20,247.01,220.55,217.15,216.56, 

•  214.17,211.79,214.06,210.03,224.76, 

•  234.65,244.53,254.40,260.15,257.30,250.09,240.93,246.97,241.12, 

•  232.51,223.91,215.27,206.63,205.55,212.70,210.49,230.24,245.33, 

•  261.40,297.50,333.30  / 

f NPJ AN( 1,4),  TEMPERATURES  ruH  75-UEC  N  JAN.  PROFILE  (US-bo). 
)Af A  (rW>JAN(i,4),lxl,31)  /  254.00,239.09,217.86,213.25,210.05, 

•  207.65,207.65,212.50, 210.03,224.76, 

•  234.65,244.53,254.40,260.15,257.30,250.09,240.93,246.97,241.12, 

■  232.51,223.91,215.27,206.63,205.55,212.70,210.49,230.24,245.33, 

•  261.41,297.50,333.30  / 

rNPJUL<l,l),  TEMPERA  TUBES  FUR  30-0EC  U  JJLIf  PROFILE  (US-66). 
3 AT  A  (TMPJUL(I,1),1S1,J1)  /  304. 5 0, 277.  07, 2s 2. 41 , 224. 42 , 203. 1 5, 

•  211.75,219.90,227.03,235.74,245. 14, 

•  254.62,264.00,272.15,271.14,263.20,254.79,239. 91,225.04,210.19, 

•  195.36,100.54,172.50,  1 72.  45, 1  75.71 , 103.55,190. 03,  209.  16,2  37.  66, 

•  265.72,322.72,379.70  / 

TNP3  UL( 1,2),  TEMPO  NATURES  FUN  45-DEC  N  JJLV  PROFILE  (OS-60). 
3ATA  (TMf*JUL(I,2),I:l,Jl)  /  2  96. 2 2,  27 3. 57,  240.  2b,  22 2.  30,  2 1 5. b5, 

•  219.17,223.94,229.49,237.01,247.64, 

•  257. 52,  267.  39, 275. 65,  275. 65, 266. 07,  257.  05,  24  4.  52, 226. 89, 2  09. 2d, 

•  191.69,174.12,165.10,165.06,169.90,100.96,190.51,214.04,246.42, 

•  270.60,329.46,379.70  / 

TOP 3UL 1 1,3),  TEMPCBATUBLS  FUR  60-0EC  N  JOLT  PRUFILE  (JS-6b). 
)Af A  (TmPJUL(1,3),I*1,31)  /  2 8B. 4 5, 2b 5. 07, 2)9. 10, 225. 16, 225. 15, 

•  225.15,226.56,232.52,238.47,250.10, 

•  262.05, 272. 40, 276. 82, 277.1 5, 271. 99, 262. 73, 244. 26,225.BJ, 207. 41, 

•  109.01,170.64,161.71,161.66,167.51,179.67,190.39,217.12,252.57, 

•  200.06,334.14,379.70  / 

TNP3UU 1,4),  TEMPERATURES  FUR  75-DKC  N  JOLT  PRUFILE  (US-bo). 
iktk  (TMPJUL(I,43,tx|,3l)  /  27R.92,2b2.09,2l6.S7,229.65,230.15, 

•  210.15,230.71,2)5.40,241.00,250.10, 

•  2  62.05,27  2.40,276.0  2,  277.1  ,,271. 99,  2b2. 73, 24  4.  26,  225.0  3,  207.  41 , 

•  139.01, 170. 64,1 61.) I, 1 61 .6b, 1 67.5 1, I  79. 67,1  30.  39, 217. 12,2 >2.57, 

•  280.06,  334.  14,379.70  / 

)AT A  Pt  /  3.141597653590  /,  N ZHT  /  Jl  / 

IP  TPPLAC  HAS  REEK  SET  (NJN  Zt.RU)  USER  MEADS  IN  MIS  JaN 
TEMPERATURE  PROFILE  AT  ALTITUDES  ZZ  =  0.0  (4.0)  120.  Km. 

:c 

IF(  rpFLAC.EO.O.O  )  S3  Tl  0 
RE  ID (6,101)  (TZH(N),Nx1,nZHT) 

101  FURHAT  (OtlO.4) 

JU  T 3  99 

3  *1 10)  X  Pl/lflO. 

7ETERM1  Nt  INDEX,  LATONO,  OF  15-UEU  LATiTJOc.  nA.LI, 


It 

Tt-Hl  ZM 
TFMPZH 
Tr.MPZM 
TEMPZII 
TEMPZII 
TEMPZH 
TtMPZH 
TEMPZh 
T  EMPZH 
TtMPZH 
TtMPZH 
TEMI'ZH 
TEMPZH 
TENPZil 
TtMPZH 
TEMI'ZH 
TtMPZH 
TtMPZH 
TEMPZH 
TEMPZh 
TEMI'ZH 
TtMPZil 
TtMPZil 
TEMPZH 
TeMPZII 
TtMPZH 
TEMI'ZH 
TtMI'Z  I 
TEMI'ZH 
TEMI'ZH 
TtMPZH 
TEMPZU 
TtMPZH 
TtMPZH 
TEMI'ZH 
TEMI'ZH 
TLMPZ.H 
TKMPZH 
TEMPZH 
TEMHZH 
TEMPZH 
TEMI'ZH 
TEMPZII 
TtMPZH 
TEMPZH 
T  t  M  ">  '  || 
TEMI'/.M 
TEMI'ZH 
Tt.  H.’ZI 
Tl.Mt'ZH 
Tr  Hi'i.,1 
T 

Tem  zit 
T  E  M 1 '  Z II 
T  r  rti’ZH 
TtMi'ZlI 


uuu  u  u 


INCREASING  POLEUARD.  TkM"zh 

ALAT  *  ABS(PLAT)/PU  80  Tr .  4IV.II 

-AT8N0  *  (ALAT»lS.)/tS.  Tc.<<P'H 

in  LATINO. GT.6  )  LATRND  *  b  TeMK/.H 

DETERMINE  INUtl,  18/  JF  L4T1  TIDE  bOUNDAMI,  UlTH  I  b- 0,  1 ,  l,  i,  *  TKMPZM 
CORRESPONDING  13  LaTITUUES  IS-/  30-/  OS-/  69-/  A  NO  75-DKC*EtS,  THI'ih 
RESPKCTIUELT.  TemPZH 

18  «  LATBND-1  TtMwZH 

I  ft  UMNO. £0.6  )  IS  *  18—1  THU*  AH 

DETERMINE  FRACTIONAL  VALUE  OP  PUS1T138  OF  INTEREST  rITHIN  TKMPZH 

LATlTUDt  8 AND*  T EM.’ZH 

FLAP  »  ALAT/15.  -  FLOAT! 18)  TkMPZH 

FLATNl  *  1.0-FLAT  TKMPZH 

FSTttl  *  1.0-FST  TkNPZH 

SO  TO  111/31/31/ 31 /il/ 41)/  LATBND  TKMPZH 

DETERMINE  TEMPERATURE  PROFILE  FOR  0-  TO  1 S-OEC  LATITUOE  BAND  TkMPZH 
(N)  LATITUDE  08  SEASONAL  DEPENDENCE).  TcMPZH 

11  )0  ID  8*1/  NZHT  TtMPZH 

ttH(N)  *  ANNUAL (■)  TKMPZH 

11  CONTIIOE  TKMPZH 

.0  TO  99  TKMPZH 

DETERMINE  TEMPERATURE  PROFILE  FOR  POSITION  M1THIN  IS-  TO  TKMPZH 

30-DEC  LATITUDE  IAMO  (SEASONAL  DEPENDENCE).  TKMPZH 

21  10  21  |z 1 / NZHT  TKMPZH 

T30  x  FST*TMPJUL(N/1B)  »  FSTM1  «TNP JAN( 8/ 18)  Tc-HPZM 

tZH(N)  x  FLATNl*  ANNUAL  (N  )  ♦  PL  AT*T  30  TKMPZH 

29  CONTINUE  TKMPZH 

10  T1  99  TKMPZH 

DETERMINE  TEMPERATURE  PROFILE  FUR  P0SIT13N  81TH1N  30-  TO  TEMl'ZH 

4S-DKL,  4S-  TO  60 -DEC/  OR  60-  TO  1S-DEC  LATITUDE  SAND  TKMPZH 

(SEASONAL  OEPENOENCE).  TKMPZH 

31  10  30  U*1#NZHT  TKMPZH 

TL8ND  =  FST*TMPJUL(N/IB-1 )  ♦  F STMl *TMPJAN(N/I B-l >  TkMPZH 

TUSHO  X  rST«THPJUL(M/  18  )  ♦  F STMl *TNPJAN( N/  18  )  TKMPZH 

TZHCN)  X  FLATN1»TLBN0  ♦  FLAT*TOBNO  TkMPZH 

31  CONTINUE  TKMPZH 

SO  TO  99  TKMPZH 

DETERMINE  TEMPERATURE  PROFILE  FOR  TS-  TO  90-DEC  LATITUDE  BA*D  TKMPZH 
(SEASONAL  DEPENDENCE).  TKMPZH 

41  30  40  Nx 1, NZHT  TKMPZH 

TZHIN)  x  FST*TNPJUL( N/ IB  )  «  FSTN1*TMPJAN1N,18)  TKMPZH 

40  CONTINUE  TkMPZH 

9*  RETURN  TKM»ZII 

EMI  TKMPZH 


SUBROUTINE  MATER(KK,ZM,H20) 


.slMA «* 


ATi  H 

cc:  ktitri 

c  suiruumne  mater  computes  the  lungitiidk,  l»titu:>£,  a ■  o  sfasur  *»r.« 

C  UXPENOENCX  OP  NXTeR  VAPOR  POM  ALTITUDES  t  HUM  0-  TO  45-VM.  NATer 

C  (POR  HIGHER  ALTITUDES,  SEE  SUiRUUTINE  SPCMiN)  nATr  » 

CCC  NATrh 

cc:  THIS  IS  X  MEW  R  JUT  I  ME  PJM  RUSCGE-IK.  MAT..* 

CCC  air-.M 

C  INPUT  PARAMETERS  MATer 

C  ARGUMENT  LIST  kATrk 

C  M  i  CALCULATION  FLAG  »ATr,< 

C  *  CALCULATE  INITIALIZATION  PARAMETERS  MATE* 

C  *  2,  CALCULATE  RATER  VAPOR  MUINC  RATIO  FOR  RATf-R 

C  0-  TO  45-KN  ALTITUDE  MATE* 

C  1H  s  ALTITUDE  OP  INTEREST,  PNOM  0  To  MS  EM  sAT.k 

C  ATMOUP  COMMON  k  AT r  K 

C  RMO  =  NASS  0ENS1TV  OF  DRT  AIR,  C/CN«*3  mATer 

C  TINE  COMMON  NATek 

C  PLAT  =  NORTH  LAT1TUJE  OF  POINT  P  (RADIANS)  mATer 

C  PLON  »  EAST  LONG1TUUF  OF  POINT  P  (RADIANS)  MATlR 

C  PVR  s  FRACTIONAL  SEASON-YEAR,  BEING  0  ON  I-JAN  IN  NAUR 

C  NORTHERN  HEMISPHERE  AND  UN  1-JULV  IN  SOUTHERN  NATeR 

C  HEMISPHERE  • ATr  K 

C  RHOSKM  =  NASS  DENSITY  OF  DRV  AIR  AT  S-AN  ALT ITUDe,  G/CN**3  MATer 

C  OUTPUT  PARAMETER  MATCH 

C  ARGUMENT  LIST  MATCH 

C  HR 0  *  HIEING  RATIO  JF  HATER  VAPOR  AT  ALTITUDE  Eta,  PPNH  NATr.R 

CCC  MATER 

C  DEFINITIONS  OP  DATA  GUANT1T1ES  mATeR 

C  (ALRtd,  U»,  1  =  1,0)  x  SMALL  A-COEFP I  Cl  E  NTS  IN  CUBIC  f  OR  MATER 

C  LARGE* A  COEFFICIENT  A(tE,ZH)  FOR  MAT.H 

C  UUASl-HOMjCXNEOUS  MOISTURE  REC1UN  IX  IN  0-  TO  S-KM  mATeR 

C  FORMULA  NATr.R 

C  (BLR(IX), 11=1,5)  »  LARGE  B-  COEFF  I C I  r'N  f  S  ll  REGION  IX  IN  MATER 

C  0-  TO  S-KM  FORMULA  mAT.-m 

CCC  mATeR 

OIMEHSIOM  ALRX(),6),SLR(6)  nATCN 

COMM  ON/ ATMOUP/  HL,SS AR , I OORN,PP, Rd Q, TT , SN 1 1 JJ ), HRHU, FEHSt i  KJM«0? 

CONNON/T IME/  ITHS,  IRONS,  IDAVS,  ZT,PL AT,  PLOk, UT ,  GAT, PVR, FST,  RRUSK N  KilM«07 

•  , CHI  XOM-07 

OAT  A  (ALRZI  1,1  ),1-I,IS)  /  0.148S,  0.007/,  0.0,  0.3253,  0.00E9,  HATtM 

•  0.0)52,  0.0107,  0.02S3,  0.0,  0.M980,  0.0337,  0.0,  1.0,  0.1002,  RATER 

•  0.0120,  1.1390,  0.10S2,  0.00B6  /  HATER 

3  AT  A  (RLR(1>,I=1,6)  /  2.8SM,  2.537,  2.  ME  7,  2.02M,  1.852,  1.289  /  MATER 

1ATA  PI  /  3. 1  Ml S92S53  S9  0  /  mATeR 

CCC  NATER 

GO  TO  (100,200),  KK  mater 

c  INITIALIZATION,  CALLED  FROM  SUBROUTINE  SPCMIN  DUR1NC  ITS  NATer 

C  INITIALIZATION.  HATER 

100  P11B0  s  PI/180.  • A  T E R 

3LJN  i  PL0N/PI1B0  bATeR 

3LAT  *  (Pl/2.  -  PLATl/PliBO  nAT-.r 

ILAT  -  A SS( PLAT) /PI 180  mATer 

CCC  mATe.H 

CCC  OCTKRMINE  INDEX  IX,  OF  DUXSI-HOMOCENEOUS  MOISTURE  REC1JN.  mATer 

CCC  mATer 

IP (  (0LAT.CE.30.)  .AND.  ( ULAT. LX .1 50. )  )  CJ  To  102  mATeR 


2 

i 

I 


/ 

s 

9 

10 
11 
1  2 
I  i 
I  M 
I  5 
lE 
1  ) 
1  R 

1  9 
20 
21 
22 

2  ) 
29 

25 

26 

27 

28 

29 

30 

31 

32 
3) 
3  M 
Js 
3o 
J7 
08 

2 
2 
i 
Ml 
M2 
Mi 
MM 
M  5 
Mo 
M7 
MB 
M  9 

50 

51 

52 

53 
5  M 
55 
5e 
57 
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VtH 


II  =  i 

sj  n  m 

to i  in  utr.LE.12s.  >  cj  rn  104 
u  *  « 

:o  tj  122 

101  tri  Utr.LS.li9.  )  CJ  TO  106 
IK  =  3 
SO  TJ  122 

io*  if(  0Lir.tr. 60.  i  so  n  no 

* r <  (Oiir.se.  ios.  >  .ion.  moljn.ck.ijo.)  .mj.  (olun.lk.iso.)> 

•  CJ  TO  108 

ir(  (OLIT.Lk.89. )  .180.  ((DLOI.CE. JSO. )  .08.  (OLUN.LR.SO.  ) )  ) 

•  ci  ra  ion 
II  *  1 

:u  ra  122 
101  n  =  2 
;a  tj  122 

119  ir(  OLIT.LT. 50.  )  SO  TO  114 

l r t  (DLIT.LT.SS.)  .180.  ((DL0I.CT.2JS.>  .180.  ( OLOB. LK. 240. ) )  > 

•  sj  ra  112 

II  *  3 
SO  TJ  122 
112  II  *  4 

S3  TJ  122 

114  ir(  (0L08.  P.T.2J0.)  .180.  (DL08.lt.  2SS.)  >  CJ  TO  118 

ir<  (OLIT.LT. 4S.  )  .180.  (  (  0LU8.CL.  2SS.  )  .180.  (  OLOB.  LK.  JO  J.  )  )  ) 

•  cj  ru  H6 

ir(  (OLja.se. no.)  .ino.  (0L08.le.13s.)  >  o  tu  i i o 
I F (  (OLIT.LT. 40.)  .180.  ( (0L08 ,CT. 30. )  .180.  (ULU8.LT. 110.))  ) 

•  CJ  TO  116 
II  *  4 

CJ  TJ  122 
116  II  *  5 

SJ  TJ  122 

in  i r t  jlit.lt.4o.  )  co  tj  120 
IF (  OLJB.LK. 240.  )  CJ  (U  112 

(F (  (OLIT.LT.  46.  )  .180.  (  (  OLOB. CE.  2 47 .  )  .180.  (OLU8.LT.2SS.))  > 

•  ci  ru  U2 
n  *  3 

sa  TJ  122 

1 23  IF (  DLJ8.CK. 247.  )  Cl  TO  Ilf 
II  *  I 

122  SUNTINOK 
CCS 

CCC  FTILOITF.  PIHINKTE4S  IT  S-  180  14-18  ILTllUDK. 

cc: 

FT8J60  r  160. *F T8-1 20. 

SI 1DIV  S  S 1  N(  F»»JS3*t*ll8D  > 

C  ill LUITK  8ITUNIL  LUC  'IF  H20  NII1NC  8ITIU  IT  S  IN,  18809* 

CHIN  =  5.0 

11  -  (1L82(  l<m*Z8I8  •  1LR4(2,II)  )*ZHK8  *  ILKtO.M) 

18  =  BLHUl)  -  (  0. 48  IS  ♦  2  .  J  Jt -0  4*  1L1T  )  »  2.HI8 
1 F  (  11.(4.  1  .118.  n.SJ.S  .08.  II.KU.6  )  Cil  HI  126 

124  488004  i  CIP(  U»jl40*F*8f  ) 

(880  JS  «  11.  I H  /.880JS/8ltniI8  ) 

SJ  TJ  129 

12>  98  =  89  -  (0.l|70*S.91K-0J*ILtT)*Etl>(-7.IIK8) 


8  ITCH 

■  ITCH 
8  1 T  K  8 

■  ITCH 
•  ITCH 
81T8  8 

■  ITCH 
HITCH 
MITCH 
81TKH 
81  TKM 
HITCH 
HITCH 
HITCH 
HITCH 
HATCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITftH 
HITCH 
HITCH 
HITCH 
HITKR 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 
HITCH 

■  ITCH 
HITCH 
HITCH 
HITCH 
MIT>  K 
HITCH 
HITCH 


17  3 


c 


JO  T)  124 

I.Tr.K 

11  j 

EVALUATE  8 ATUUAL  LQS  OF  H20  HIXINU  UAT10  IT  14  kN,  2HK014 

•  ATt  . 

11  ; 

128 

1UKM  *  14. 

•  ATI  k 

117 

CC  3  FVHJ60  -  6.92*ALAT/(1.0«EXP(-0.805»(2i<M-18.))) 

•  AT  r.K 

llo 

0  D  =  0.061  9«ZHK»»3EIP(-0.022o«2HKH) 

•  Af.-:.< 

n  i 

JL8LSI  :  1.0m.0*eiPl0.44‘(AiAT-2B.)>) 

•  ATi.k 

120 

00  =  00  »  30.9*0LBLdl*EXP(-0.221 *ZHKM) 

•  ATt.K 

m 

(82014  :  00*(1.0«J2).*EXP(-0.448*lHKM)aiI.4(C:aPllUO>) 

•  ATtk 

122 

4UITK(6,90l )  U,FVU,FST 

•  AT  tk 

121 

901 

F3RN1T  <1H0,24H  FROM  SUBROUTINE  •  ATfc'K-/  6H  IX-, l3,ii,5H  I'm-, 

•  A  f  r.K 

124 

1 

*  F8.S/S1,6H  FST  =  ,F8.S) 

•  ATtk 

1  2  i 

iltllll 

•  A  I  tk 

126 

20) 

cohtiroe 

■  ATK2 

127 

(F (  1H.SE.14.  )  G3  TJ  212 

■  ATtk 

123 

(F(  1H.SE.  6.  )  CO  TJ  214 

•  ATi.k 

129 

14  3  (ll.HZ(  J/U)‘ZH  ♦  ALRZ(2,IX))»ZH  *  ALKZU,1X) 

■  AT  r.K 

130 

>■  3  81.0(11)  -  (0.4846  *  2.J3x-44*4t.4T>*2H 

•  ATr.k 

131 

IF (  Il.c.4.2  .OK.  (X.bO.S  .OK.  11.68. 6  )  SO  TU  210 

•  a  r  i.  m 

132 

200 

SUB  3  eip(  AA*S1MUAT *BB  ) 

■  AT  tk 

133 

SMB  3  SNm/BHO 

•  AT  Lit 

134 

10  TJ  216 

•  AT  tk 

1)6 

210 

88  =  88  -  (0.1170  ♦  5.  91E -03 *ALAT)  *6 2P(_ZH) 

•  AT  tk 

1  Jo 

10  TJ  2)d 

■  ATtk 

1)7 

212 

CC  3  F UK 36  0  -  6.92*IL1T/<1 . 0 ♦£ XP(- 0. 3 05* ( ZH-l b. ) )  ) 

■  ATtk 

13H 

DO  3  0.0619*ZH*EXP(-0.0226*Z1I) 

■  ATtk 

139 

00  3  DO  ♦  JO . 9 ‘OLBLtt  1  *  EXP( -0.221  *2  H) 

■  ATF  k 

140 

SUB  3  KXP(  DD*(1.0*32J.*SlP(-0.448*ZH)*SI8(CC*P(ldiJ))  ) 

•  ATi.k 

141 

CO  TO  216 

■  A  T  IK 

142 

214 

SNU  3  £XP(  ZMRO14»(ZNHOOS-ZnR014)*(14.-ZH)/9.  ) 

■  ATtk 

1  4  J 

214 

423  3  SNU 

■  kTF.K 

144 

BKTUB8 

■  ATtk 

146 

189 

■  ATtK 

146 

SUBKJJriNE  N»UPT(JJ, HKM,h20RR) 

RYUPT 

2 

ccc 

NVUPT 

J 

c 

subroutine  nvupt  alljrs  the  user  to  bypass  tie  njrm»l 

■  VUPT 

4 

c 

TREATMENT  (ACHIEVED  BY  SETTING  N  VFL  AC=:0. 1) )  JF  <ATtR  VAPOR  la 

NVUPT 

j 

c 

SUBROUTINE  SPCM1N  FUR  THE  ALTITUDE  HENCE  FkJM  0.  TO  WO.  EH. 

•  VUPT 

o 

c 

THE  USER  EFFECTS  THE  BYPASS  BY  HEADING  in  NVFLaG.CT. 0. 0  AND 

•  VuPT 

7 

c 

HIS  OWN  DATA  IN  ONE  uF  FOUR  OPTIONAL  KORNS  ACCORDING  TO 

NVUPT 

a 

c 

NEIHUD  =  1, 1,3,4. 

NVUPT 

i 

c 

IT  IS  ANTICIPATED  THAT  THE  USER  N1LL  BE  NUST  INTERESTED  IN 

NVUPT 

10 

c 

USING  HIS  ON N  LOR- ALTITUDE  DATA  OYER  THE  ALTITUDE  RANGE  FROM 

NVUPT 

1  1 

c 

HH( 1 1-9.0  TO  UH(HJP),  NUT  HE  MUST  ALSU  ACTUALLY  READ  IN  DATA 

NVUPT 

I  2 

c 

OVER  THE  REMAINING  H  I CH  t  H- ALTI  T  UDE  RANCE  FRJN  Hii(NOPEl)  TO 

•  VUPT 

I  i 

c 

HH(MZH>=120.  IF  THE  USeK  HAS  NO  PERSONA.  PREFEHANCE  F OK  DATA 

NVUPT 

14 

c 

IN  THE  HIGHER-ALTITUDE  RANGE,  HE  MAY  FIKJ  IT  CONVENIENT  TO 

NVUPT 

IS 

c 

USE  THE  OATA  IN  A  DATA  STATEMENT  IN  SUBROUTINE  SPCNIN,  C1VEN 

NVuPT 

1  b 

c 

IT  ALTITUDES  20lS)120  KN  AND  IN  UNITS  OF  PARTS  PER  MILLION  BY 

•  VUPT 

1) 

c 

NASS  (PPMm). 

NVUPT 

1  d 

ccc 

•  VuPT 

IV 

cc: 

THIS  IS  A  NEN  ROUTINE  FOR  RQSCOE-IR. 

•  VUPT 

20 

ccc 

NVUPT 

21 

c 

INPUT  PARAMETERS 

■  VUPT 

22 

c 

ARGUMENT  LIST 

■  VuPT 

2) 

c 

JJ  -  =1  FOR  INITIALIZATION  CAL. 

NVUPT 

24 

c 

-2  normal  OPERATION  CALL 

NVUPT 

2S 

c 

HKM  -  ALTITUDE  OF  INTEREST,  KM  (UStD  ONLY  IF  JJ-2) 

NVUPT 

2b 

c 

ATNOUP  COMMON 

NVUPT 

27 

c 

KHO  -  DENSITY,  CRAMS/CN»»3 

•  VUPT 

?8 

c 

TT  -  TEMPERATURE,  DECREES  KtLVIM 

■VuPT 

2* 

c 

Y  PC  COMMON 

N  VUPT 

JO 

c 

METHOD  -  FLAG  INDICATING  ONE  OF  FDJH  OPTIONS, 

NVJPT 

31 

c 

=1  DATA  VALUES  IN  PARTS  PER  MILLION  BY  NASS 

NVJPT 

32 

c 

-2  OATA  VALUES  IN  ABSOLUTE  HUMIDITY, 

NVuPT 

3) 

c 

GRAMS/ METERS* *3 

NVJPT 

34 

c 

-3  DATA  VALUES  IN  RELATIVE  HUMIDITY,  PERCENT 

NVUPT 

3b 

c 

(10  PERCENT  IS  INPUT  AS  10.  NOT  0.10) 

nVupT 

Jb 

c 

=4  OATA  VALUES  IN  DEM-PU1NT  TEMPERATURE,  DEG  K 

NVUPT 

37 

c 

NVUPT 

38 

c 

NOTE  -  FOR  METHOD  =  2,0,  UR  4  THc.  SUBROUTINE  CONVERTS 

NVOPT 

JR 

c 

THE  FIRST  NOP  VALUES  OF  TIL  DATA  INTO  PARTS 

■  VuPT 

40 

c 

PER  MILLION  HY  NASS,  DURING  INITIALIZATION. 

■  VUPT 

41 

c 

DATA  READ  IN 

NVUPT 

4? 

c 

HH( M)  -  ALTITUDE  ARRAY,  0.0  TO  12U.0  KM 

NVUPT 

43 

c 

MVC(N)  •  12J  DATA  USING  ONE  OF  THE  FOUR  OPTIONS. 

NVUPT 

44 

c 

FOR  N=l,MOP,  DATA  HAVE  DIMENSIONS  DICTATED  HY 

NVUPT 

4s 

c 

THE  UPT1UN  USED.  FOR  N=NJP»1,NZH,  DATA  HAVE 

NVUPT 

46 

c 

DIMENSIONS  OF  PARTS  PER  MILLION  BY  HASS. 

NVUPT 

47 

c 

NOP  =  NZH  IS  A  VALID  INPUT  CONDITION. 

■  VUPT 

48 

c 

OUTPUT  PAHAMETER 

NVUPT 

49 

c 

ARGUMENT  LIST 

•  VUPT 

SO 

c 

H20MR  -  NATER  VAPOR  CONTENT  OF  MOIST  AIR  IN  UNITS  OF 

•  VUPT 

SI 

c 

PARTS  PER  MILLION  BY  MASS  AT  ALTITUDE  HKM. 

•  VUPT 

s? 

ccc 

■  VuPT 

S3 

>1 NENSIQM  HH(61  ),NVC( 61 ) 

NVUPT 

S  4 

C0MM3N/ATM0UP/  HL, S3 AR , I  DORN, PP, RH 0, TT, SN1 ( 32 ), HR  HU, FEHSE3 

KUMM02 

2 

CQMM3N/Y PC/  N VF LAG, Mi TH 00, H 2) 1 20 

KOMMOB 

? 

1  AT  A  CA  SC,  ZMH  2U  /  8. 314 1678lE*07,  1 B.  0 16  / 

•  VUPT 

S7 

GO  T3  (100,200),  JJ 

■  VUPT 

SB 

175 


cc 

INITIALIZATION,  CALL  to  K  KIM  MAIN  PROGRAM  AFTER 

SUBROUTINE 

NVOPT 

'jN 

cc 

IT 4 ISO  MAS  BEEN  INITIALIZED. 

■  VUPT 

60 

100 

IF(  NET 8(10  >  111/111/  112 

nvupt 

61 

ill 

tertian 

■  VOPT 

62 

112 

aeiDiS/ioi)  nzh,nqp 

■  VuPT 

63 

101 

fOMHir  (215) 

■  VUPT 

64 

<EAD(5,105)  (HH(N),NVC(N),N=l,NZd) 

■  VuPT 

6‘j 

105 

FORMAT  (dtl0.4) 

NVOPT 

6s 

4TB  =  METHOD 

■  VUPT 

h7 

SO  TO  (120/140/160/180)/  NTH 

■  VUPT 

6B 

120 

IE  TURN 

■  VuPT 

6  t 

CC 

METHOD -2  INITIALIZATION. 

■  VO  PT 

70 

140 

JO  144  N=1,NUP 

UVUPT 

71 

ZZ  =  UH(N) 

■  VUPT 

72 

CALL  ATNOSU(2/ZZ) 

■  VUPT 

7  i 

it  tit}  -  HVC(N)/RHO 

■  VUPT 

74 

CC 

HATER- f APOK-CONTENT  DATA/  KVC(N)  NON  EXPltSSfclJ 

IN  UNITS  OP 

■  VUPT 

75 

CC 

PARTS  PER  MILLION  BT  MASS. 

■  VUPT 

7  o 

144 

CONTINUE 

■  VUPT 

77 

SO  TO  111 

■vopt 

7a 

CC 

NETHUD-J  INITIALIZATION. 

■  VOPT 

79 

160 

IZM  £  CASC/ZMH20 

•  VOPT 

RO 

10  164  M  =1 / NOP 

■  VUPT 

81 

ZZ  =  HM(  N) 

■  VOPT 

a  2 

:all  at4usu(2,zzi 

■  VOPT 

a  3 

VPH2)  s  0.0 

■  VOPT 

84 

VFICS  =  0.0 

■  VOPT 

85 

ir (  (  tr  .GE.  173.15  )  .  *31).  (  TT  .LE. 

373.15  )  ) 

■  VuPT 

Ho 

t 

•CALL  H23SVP(TT,VPH2a,VPlCE) 

■  VOPT 

87 

CC 

NON  HAVE  SATURATED  VAPOR  PRESSURE 

OVER  A  HATER 

SURFACE  AT 

■  VOPT 

88 

CC 

TEMPERATURE  TT,  VPH20  (MILLIBARS). 

■VuPT 

8m 

HVC(I)  S  1.0E»07*HVC(N)*fPH20/ (8ZM*TT* 

kHQ) 

■  VOPT 

90 

164 

CONTINUE 

■  VUPT 

91 

20  TO  111 

■  VUPT 

92 

CC 

4ETHUU-4  INITIALIZATION. 

■  VOPT 

93 

ISO 

iZM  -  SASC/ZMH2U 

■  VOPT 

94 

13  184  4*1 /NOP 

■  VOPT 

95 

ro  =  NVC(H) 

■  VuPT 

9b 

ZZ  =  H4(  M) 

■  VUPT 

97 

CALL  ATMOSUl 2/ZZ ) 

■  VOPT 

98 

VPH23  -  0.0 

NVUPT 

99 

VP1CE  =  0.0 

■  VOPT 

100 

IP(  (  TT  .SE.  173.15  )  .AND.  (  TT  .LE. 

373.15  >  ) 

■  VOPT 

101 

1 

•CALL  H23SVP(TT/VPH23/VPICE) 

■  VUPT 

102 

HVC(N)  =  1.0E»09«VPH2a/(HZM»Tr»RHtJ) 

■  VUPT 

103 

184 

CONTINUE 

•  VuPT 

104 

70  T3  111 

■  VOPT 

105 

CC 
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SUIRUUTlNE  ZTTOJT  CUM*  t«TS  A  CREGURIAH  CALENDAR  DATE  l  23  f  H 
CENTURY  YEAR  IYRS,  NUMTH  IRUNS,  DAY  IUAYS)  AND  ZONE  TIME  IX 
AT  E  AST  LONGITUDE  PLOM  TO  GREG URIAH  CALENDAR  DATA  AND  Me. AN 
TINE  or  AT  CREENN1CN. 

Nil I  SI JN  02  (11/10/74)  PRO VI  DK  S. •  • 

I.  TEST  FOR  LEGAL  INPUT  UATE. 

RNN 1  SI  JN  0)  ( 1 0/  l  S/77  )  PROVIDES... 

I.  CJKHECTE0  COMPUTATION  UP  THE  ZONE  DESCRIPTION,  ZO, 

WHEN  ZO  SHOULO  HE  0. 

J.  REVISED  comment  cards. 

RAVI  SION  04  (00/01/78)  PROVIDES... 

4.  REVISED  TIME  COMMON  PUH  RUSCOE-1R. 

Ill l SI  OS  OS  (02/08/79)  PROVIDES... 

5.  CONVERSION  OF  PLUN  TO  THE  CORRESPONDING  POSITIVE 
JUAMT1TY  IP  1NPUTTC0  AS  A  NEGATIVE  UUANTITV. 

INPUT  PARAMETERS 

1VRS  -  NUN) ER  OP  THE  YEAR  IN  THE  I9J0  S  (E.C.,  1974 
RECONKS  74),  IN  DC AL  TINE  ZJNl. 

1M0NS  -  NUMNKR  UP  THE  MONTH  (E.G.,  PENHUARY  RECUNES  2), 

IN  LOCAL  TINE  ZONK. 

1UAVS  -  DAY  OP  THE  MONTH,  IN  LOCAL  I l HE  ZONE. 

ZT  -  ZONE  TINE  FOR  THE  Ib-OECREt  LONGITUDE  INTERVAL 
CONTAINING  PLON  (DECIMAL  HRS) 

NOTE.  A  VALUE  OP  24.0,  TNEATEO  i Y  THE  CODE  AS 
ILLEGAL,  MUST  BE  I NPOTTED  AS  0.0  ON  THE  NEXT  DAY. 
PLON  -  EAST  LONGITUDE  OP  POINT  P  (RADIANS) 

(PLON  MUST  RE  POSITIVE) 

)UTPIir  PARAMETERS 

IYRS  -  A  POSSIbLY  REVISED  VALUE  UP  THE  INPUT  PARAMETER, 
CORRESPONDING  TO  CREKNMlCH. 

IRONS  •  A  POSSIBLY  REVISED  VALUE  OP  THE  INPUT  PARAMETER, 
CORRESPONDING  TO  CREENWICH. 

ID AV S  -  A  PJSSIHLY  REVISED  VALUE  UP  THE  INPUT  PARAMETER, 
CORRESPONDING  TO  GREENWICH. 

UT  -  UNIVERSAL  TINE  (DECIMAL  HRS) 

)KF IN1T10N  JP  DATA 

IDAYNU(I)  »  DAPS  IN  THE  1  TH  MONTH  OP  A  ION-LEAP  VLAR 

COMMON/ TIMS/  I  IRS,  I  MOMS,  IDA  IS,  ZT,  PLAT,  PLON,  UT,  GAT,  PVR,  PST,  RHUS  AM 
•  ,CM1 

)l  HKISI  JN  IDAVM0O2) 

DATA  (IDAVNIK  l),l*l,12)  /  Jl,  28,  J  l,  JO,  Jl,  JD,  Dl ,  J  l ,  JO,  J1 ,  JO  ,  il  / 
DATA  PI  /  J. I  41 S92bbOS90  / 

CUNVeRSIUN  PNOM  ZONE  TINE  ZT  TO  GREENNIC)  MEAN  TINE  (l.t., 
UNIVERSAL  TIME  UT)  IS  DONE  BY  FIRST  FINDING  THE  TIME  ZONE 
CONTAINING  THE  LONGITUDE  PLON. 

N7PTS  IS  THE  INTEGRAL  NUMBER  OP  T.b-DEGmE  INTERVALS  In  THE 
WESTERLY  DIRECTION  PRilM  CREENWICH  TU  THE  LoNClTUDt  OF  INTt.Mc.ST 
PLON.  M7PTS  NAY  )E  0  UR  ANY  INTEGER  HP  TO  AND  INCLUDING  47. 
HOWEVER,  THE  TIME-ZONE  MUMMER  1Z0NE  IS  0  PJR  N7PTS  E UU AL  TO 
0  OR  47.  IZONE  RANGES  PROM  0  TO  2). 
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rssr  NMETHtk  INPUT  DATE  10  LEGAL. 

zrrnuT 

59 

IP<  IT.LT.O.Q  .UR.  H.it.lA.  )  G)  TO  999 

ztiu'it 

60 

1P(  ITRS.LT. 1  .OR.  1VmS.CT.99  )  SO  TO  999 

ztr.uT 

6  1 
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